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Los programas que aparecen en este libro funcionan en los 
ordenadores: 


IBM-PC, XT, AT y compatibles. 


AMSTRAD-464, 664, 6128, 1512. 
SINCLAIR-SPECTRUM 48 K, 128 K, PLUS, PLUS 2. 
MSX-Todos los modelos. 
COMMODORE-CBM 64 y CBM 128. 


INTRODUCCION: 
COMANDOS GRAFICOS 1 


LA PANTALLA 


AMOS a ver cómo está constituida la pantalla del ordena- 
dor y cómo podemos pintar sobre «ella. 

La pantalla está configurada como una retícula en la 
que cada casilla, o «pixel», puede tomar un color. 

Para acceder a cada una de estas casillas necesitamos 

== conocer su posición dentro de la pantalla, lo que indica- 

- remos mediante la fila y la columna en la que está situa- 
da. A estos dos números nos referiremos como sus coorde- 
nadas. 

El número de filas y columnas que hay, o resolución, varía de un or- 
denador a otro, por lo que los veremos por separado. 

En el Spectrum la pantalla está formada por 176 filas y 256 columnas. 
El punto origen, que es el situado en la fila O y la columna 0, está en la es- 
quina inferior izquierda de la pantalla. 

En el Amstrad existen tres modos de pantalla a los que les corresponde 
diversos números de puntos. En el modo 0 existen 160 columnas y 200 fi- 
las. En el modo 1 hay 320 columnas y 200 filas. Finalmente, el modo 2 
cuenta con 640 columnas y 200 filas. 

Para unificar con los distintos modos el par de números que indican la 
fila y la columna, y que sean los mismos se varía el tamaño de la casilla, 
que ocupará varios puntos, por lo que a coordenadas distintas les puede 
corresponder una misma casilla. 

En el modo 0 a una casilla le corresponderán 8 puntos de nuestras coor- 
denadas (4*2), en el modo 1 cada casilla estará compuesta por 4 puntos 
(2*2), y en el modo 2 serán dos puntos (1*2). 


Para especificar los diferentes modos existe el comando 


MODE n 


donde n es el modo a usar. 


Un ejemplo: este es el 
pixel (191,159) 
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Coordenadas x del pixel 


Fig. 1.1 


Punto 4 x 2 


Modo 0 


Punto 2 x 2 


Modo 1 


Punto 1 x 2 


2 


Modo 


Fig. 1.2 


El origen también está situado en la esquina inferior izquierda de la 
pantalla. 

El Commodore tiene 320 columnas y 200 filas. Aquí el origen está si- 
tuado en la esquina superior izquierda. 

Este ordenador presenta un problema al no disponer de comandos grá- 
ficos, pero existe en el mercado una extensión que dispone de ellos (Basic 
Simon). 

En el IBM también existen diversos formatos de pantalla. Un primer 
modo en el que hay 320 columnas y 200 filas, y un segundo en el que dis- 
ponemos de 640 columnas y 200 filas. Estos modos se seleccionan con el 
comando 

SCREEN n 


donde n es el modo a seleccionar. 
El origen está situado en la esquina superior izquierda. 


== COLORES 


En la pantalla se puede pintar con diversos colores. Se puede especifi- 
car el color del borde, o marco, que es lo que rodea la pantalla y donde 
no se puede escribir; el color del fondo, o puntos sin pintar, y el de los pun- 
tos a escribir, o tinta. 

Veamos cómo se indica esto en cada ordenador. 

En el Spectrum existen 8 colores. A cada color le hacemos correspon- 
der un código que lo identifique. 

Estos serán: 


Código 
0 Negro 
1 Azul 
2 Rojo 
3 Magenta 
4 Verde 
5 Cyan 
6 Amarillo 
7 Blanco 


Fig. 1.3. Códigos de colores para Spectrum. 


Para indicar el color del borde indicamos: 
BORDER n 


donde n es el código correspondiente al color que queremos usar. 


La instrucción: 
PAPER n 


cambiará el color del fondo. 


Por último: 
INK n 

indicará el color de tinta con el que queremos pintar. 

Hay que tener cuidado de no indicar el mismo color para el fondo y la 
tinta, pues de esta forma al pintar no será posible distinguirlo del fondo. 

En el Amstrad existen 27 colores diferentes, aunque no se pueden usar 
todos simultáneamente. 

El número de colores depende del modo que estemos usando, existien- 
do una relación inversa entre la resolución y el número de colores. 

En el modo 0 se pueden usar 16 colores distintos. En el modo 1, 4 co- 
lores y, por último, en el modo 2 sólo 2 colores. 


0 Negro Azul pastel 

1 Azul Naranja 

2 Azul intenso Rosa 

3 Rojo Magenta pastel 

+ Magenta Verde intenso 

5 Malva Verde marino 

6 Rojo intenso Cian intenso 

7 Morado Verde lima 

8 Magenta intenso Verde pastel 

9 Verde Cian pastel 
Cian Dorado 
Azul celeste Amarillo pastel 
Amarillo Blanco intenso 


Blanco 


Fig. 1.4 Códigos de colores para Amstrad. 


El color del borde se asigna: 
BORDER n 


donde n es el código del color. 
Para asignar el color del fondo y de lo que pintaremos usaremos las ins- 


trucciones 
PAPER n PEN n 


Pero aquí n no es el código del color, sino que se refiere al número del 
tintero. Esto del tintero es una forma indirecta de acceder al color que que- 
remos usar. 
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Asignaremos el color del tintero mediante la instrucción 


INK n,m 


donde n es el número del tintero al que queremos asignar el valor y m el 
código del color que queremos asignar. 

En el Commodore hay 16 colores. 

Para el color del fondo debemos apretar la tecla «Ctrl» y una tecla del 
l al 8. Y para la tinta la tecla «Commodore» y una tecla del 1 al 8. 


Teclas 

CTRL+1 Negro Naranja 
CTRL+2 Bianco Marrón 
CTRL+3 Rojo Rojo intenso 
CTRL+4 Cyan Verde 
CTRL+5 Púrpura Verde 
CTRL+6 Verde Verde intenso 
CTRL+7 Azul Azul intenso 


CTRL+8 Amarillo Verde 


Fig. 1.5 Códigos de colores para el Commodore. 


En el IBM también depende el color del modo en el que estemos. 

En el modo 1 podemos elegir 16 colores del fondo, que será el mismo 
del borde, y elegir entre 3 colores en dos paletas. Si seleccionamos la pa- 
leta O tendremos tres colores (verde, rojo y marrón), y de seleccionar la 
paleta 1 otros tres (cian, magenta y blanco). 


0 Negro Azul claro 
1 Azul Verde claro 
2 Verde Cian claro 
3 Cian Rojo claro 
- Rojo Magenta claro 
5 Magenta Amarillo 
6 Marrón Blanco intenso 
7 Blanco 
8 Gris 
Paleta 1 


Verde Cian 


Rojo Magenta 
Marrón Blanco 


Fig. 1.6 Códigos para IBM. 


En el modo 2 sólo hay 2 colores para pintar: O para el color del fondo 
y 1 para el blanco. 


LINEAS Y PUNTOS 


Una vez que sabemos usar los colores, veamos cómo pintar un punto. 
Para ello usaremos la instrucción 


PEOT-X YT 
donde X e Y son las coordenadas del punto y T la tinta a usar. Esta ins- 
trucción es utilizable en el Amstrad y Commodore. Para utilizarla en el 


Spectrum debemos omitir el último parámetro (T). 
En el Amstrad existe la instrucción 


MOVE X, Y 


que se sitúa en el punto indicado por X e Y sin pintar. 
En el IBM usaremos 
PSET (X,Y) 


para pintar el punto situado en X e Y. 
También existe la inversa 


PRESET (X, Y) 


que borrará el punto situado en X e Y pintándolo con el mismo color que 
el fondo. 
Si queremos trazar una recta en el Spectrum utilizaremos la instrucción 


DRAW X,Y 


que unirá el último punto pintado con otro alejado de él X puntos en ho- 
rizontal e Y puntos en vertical. 


Fig. 1.7 


10 


La instrucción equivalente del AMSTRAD es 
DRAWR X,Y 
Además, existe la instrucción 
DRAW X, Y 


en la que la coordenada X e Y son referidas al punto 0,0 en vez de refe- 
rirse al último punto pintado. 


En el Commodore existe 
LINE X1,Y1,X2,Y2,T 


donde X1 e Y1 son las coordenadas del punto inicial y X2 e Y2 las del pun- 
to final indicando T si escribe (1) o borra (0). 


Análoga a ésta es la instrucción del IBM 
LINE (X1,Y1) - (X2,Y2) 


que hace lo mismo que la del Commodore. 

Por último, indicaremos que los programas no controlan que se inten- 
te dibujar fuera de la pantalla. En algunos ordenadores, como el Amstrad 
y el IBM, no ocurre nada, pero en otros, como el Spectrum y el Commo- 
dore, esto ocasionará un error. Si el lector desea evitarlo, antes de dibujar 
deberá controlar la posición de los puntos, y de salirse de la pantalla y di- 
bujar sólo lo que entre en la pantalla, si lo hay. Este tipo de rutinas son co- 
nocidas como rutinas de «clipping». 

Esta rutina comprueba si el punto está fuera de la pantalla, y de ocurrir 
busca qué punto de la recta limita con el borde de la pantalla. 


10 REM HI RR 


20 REM ** e. — === 
30 REM **PROGRAMA PARA SPECTRUM x*x* === 
40 REM x*x E - === 
60 REM *x* RUTINA DE CLIPPING x*x* iS 
70 REM *x - ** : == 


O A AAA AA — 
90 LET xi=0: LET yi=0 : == 
100 LET xf=255: LET yf=175 

110 DIM x(2): DIM y(2)> 

120 REM LOS DATOS SON X1,Y1 Y X2,Y2 = 
130 LET X(1)>)=X1: LET Y(1>=Y1 - == 
140 LET X(2=X2: LET Y(2>=Y2 —= 
150 LET T=1: GO SUB 500 : = === 
160 LET T=2: GO SUB 500 === O 
A A 
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DRAW X(2)-X(1),Y(2)-Y(1> 


sTOP 


REM RUTINA PRINCIPAL 
LET A=(Y(2)-Y(1)>))/(X(2) -X(1)) 


IF XCT><XI 
1F X<(T><XI 
IF X(TI>XF 
IF XCTI>XF 
ECN 
EEE 
A A 
1F-YETI)<XYI 
RETURN 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


Y(TI=Y(1)+(XI-XC(1)3xA 
X(T3=XI: GO TO 500 
Y(TI=Y(1)+<CXF-X(1)3%A 
X(T>=XF: GO TO 500 
X(TI)=X(1)+(YF- C1))/A 
Y(T3=YF: GO TO 500 
X(TI)=X(1)+(YI-(1)3/A 
Y(T>=YI: G0 TO 500 


Programa 1.1 


EL MUNDO EN TRES 
DIMENSIONES £ 


ASTA ahora hemos visto cómo dibujar en la pantalla de 
nuestro ordenador cualquier tipo de figuras, pero no he- 
mos dado ningún tipo de significado a los puntos que ve- 
mos en la pantalla. 

Tal y como está diseñado el ordenador, a cada punto 
de la pantalla podríamos hacer corresponder un punto del 
plano y así podríamos representar figuras de dos dimen- 
siones en la pantalla. Para ello podemos hacer lo siguien- 
te: tomamos un punto del plano que vamos a llamar «ori- 

gen» y para poder colocar los puntos en el plano trazamos una flecha que 
vaya del origen a ese punto. O sea, lo que tenemos es un flecha que nos 
indica qué punto del plano vamos a pintar. A esta flecha se la denomina 
«vector». 


PUNTO B PUNTO A 
O 


10) ORIGEN 


Fig. 2.1 


Pero nuestro ordenador no entiende de «vectores» y «flechas», sino sólo 
de números y por ello le tendremos que traducir nuestras ideas a su len- 
guaje. 
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Esto lo vamos a hacer asignando a cada punto un par de números. El 
primero representa la distancia en horizontal, o eje X, a la que está el pun- 
to, con respecto al punto que hemos llamado origen, y el segundo la dis- 
tancia en sentido vertical, o eje Y, a la que está el punto que queremos re- 
presentar desde el origen. 


COORDENADA Y 


ORIGEN 


COORDENADA X 


Fig. 2.2 


Pues bien, a estos dos números se les llama coordenadas del vector. Evi- 
dentemente, el origen tiene como coordenadas el par (0,0), y los puntos 
que estén a la derecha del origen tendrán una coordenada horizontal, la 
primera del par, con un valor positivo, y los que estén a la izquierda serán 
negativos. Igualmente, todos aquellos puntos que estén por encima del ori- 
gen tendrán una coordenada Y, en este caso el segundo elemento del par, 
positiva, y los que estén por debajo tendrán una coordenada Y negativa. 

Este convenio de signos que hemos tomado nos divide el plano en cua- 
tro partes. 

La recta horizontal que parte del origen es donde vamos a tomar el va- 
lor de la coordenada X, por lo que se llama eje X, y la recta vertical que 
pasa por el origen donde tomamos el valor de la coordenada Y se llama 
eje Y. 

Gracias a todo esto que hemos contado tenemos una forma de especi- 
ficar cualquier punto del plano mediante un par de números, sus coorde- 
nadas. 
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Fig. 2.3 


Todo esto lo podemos ver de una forma práctica gracias al programa 


10 REM ES —= 


20 REM xx A AKÁA 

30 REM xx PROGRAMA. PARA AMSTRAD ZA 
40 REM %%e === e =— 
50 REM xx VECTORES 2 = 1 JE == 
$0 REM xx A = 

70 REM IIA zs— 
A === === A E 
A - == === 
100 REM PINTA. LoS. EJES. = == = === 
A : === ZA 


120 DRAW 320,399,1 
130 MOVE 0,200. A 
A >> 
150 REM ESCRIBE ¡NOMBRE EJES === 
180 MOVE 330,390 

170 DRAWR 5,- 5 :DRAWR 5,5: DRAWR- E 
180 MOVE 600,220. 

190 DRAWR 10, -10:MOVER 0, 10:DRAWR - 
: 200 REM LEER DATOS 


210 LOCATE 1,25 
220 PRINT SPC(35) 

230 LOCATE 1,25 

240 INPUT "INTRODUCIR X,Y ->";X,Y 
250 REM DIBUJA EL VECTOR 

260 MOVE 320,200+Y 

270 DRAWR X,0,2 

280 DRAWR 0,-Y 

290 MOVE 320,200 

300 DRAWR X,Y,3 

310 REM REPETIR EL PROCESO 

320 GOTO 200 


Programa 2.1 


Este programa está pensado para Amstrad, pero es muy sencillo cam- 
biarlo para otros ordenadores, como Spectrum o IBM. 

Su uso es muy sencillo; al ponerlo en marcha pedirá un par de núme- 
ros, las coordenadas X e Y, y una vez comprobadas que son correctas pin- 
tará el vector correspondiente a partir del centro de la pantalla. 

Pero ya vimos en el capítulo anterior que las pantallas de los ordena- 
dores tienen su origen de coordenadas en una esquina de la pantalla, por 
lo que el programa debe transformar el punto introducido al verdadero va- 
lor de las coordenadas. Para hacer esto realizamos los siguientes pasos: 


1. Nos ponemos en el origen verdadero de la pantalla. 

2. Desplazamos el punto sin pintar al centro de ella. 

3. Pintamos de forma relativa desde donde estamos una línea con las 
coordenadas que hemos dado al vector. 


Y 


Fig. 2.4 
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Este tipo de representacion no es muy útil para dibujar en dos dimen- 
siones, ya que podemos utilizar directamente las coordenadas de la pan- 
talla y olvidarnos de vectores, ejes, etc. 

Pero esto se hace imprescindible a la hora de representar cuerpos con 
volumen, en tres dimensiones, ya que, en principio, nuestros ordenador 
no está preparado para visualizar cuerpos en tres dimensiones y hay que 
recurrir a los vectores y coordenadas para poder hacerlo. 

Al igual que en dos dimensiones, en el espacio tenemos un origen a par- 
tir del cual vamos a medir los vectores, y en vez de tener sólo dos ejes, X 
e Y, tenemos tres ejes que son perpendiculares entre sí, X, Y, que son los 
que ya conocemos, y un tercer eje, el Z, que nos va a servir para medir la 
profundidad, la tercera dimensión. En el eje Z se toma por convenio el sig- 
no positivo desde el origen hacia nosotros, «saliendo» de la pantalla. 


Fig. 2.5 


Al tener tres ejes, un punto del espacio queda perfectamente determi- 
nado dando tres valores, las coordenadas para cada uno de los ejes. El or- 
den en el que los vamos a escribir va a ser: 


(X,Y,Z) 


Para ver mejor esto podemos utilizar el programa que viene a conti- 
nuación, que nos preguntará el valor de las tres coordenadas y represen- 
tará el vector en la pantalla: 
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10 
20 
30 
40 
50 
$0 
70 
80 
90 


REM AAA KA 


REM xx 

REM xx PROGRAMA PARA AMSTRAD 
REM exe 

REM xx VECTORES 3-D 
REM xx 


xx 


REM 6 6 E II RIE RR 


MODE 1 
CLS:CLG 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 


dx=0.5:dy=0.5 

REM PINTA LOS EJES 

MOVE 320,0 

DRAW 320,399,1 

MOVE 0,200 

DRAW 639,200 

MOVE 120,0 

DRAW 520,399 

REM ESCRIBE NOMBRE EJES 

MOVE 330,390 

DRAWR 5,-S5:DRAWR 5,5:DRAWR-10,-10 
MOVE 400,220 

DRAWR 10,- 10:MOVER 0,10:DRAWR -10,-10 
MOVE 125,30 

DRAWR 10,0:DRAWR -10,-10:DRAWR 10,0 
REM LEER DATOS 

LOCATE 1,25 

PRINT SPC(35> 

LOCATE 1,25 

INPUT "INTRODUCIR X,Y,Z2 ->"3X,Y,2 
REM DIBUJA EL VECTOR 

MOVE 320-zx*dx,200-zx*dy 

DRAWR x,0,2 

MOVE 320+x,200 

DRAWR -zx*dx ,-zx*dy 

DRAWR 0,y 

DRAYW 320,200,3 

REM REPETIR EL PROCESO 

GOTO 250 


Programa 2.2 


Este tipo de representación en la que a cada punto le hacemos corres- 
ponder los tres valores de las coordenadas de cada eje se llama represen- 
tación «cartesiana» del punto y es la que más vamos a utilizar a lo largo 


del libro. 


Existe otro tipo de representación que en vez de dos valores de las tres 
coordenadas utiliza como datos la distancia del punto al origen y dos án- 
gulos, el formado por la recta entre el punto y el origen y el plano XZ, y 
el formado por la recta que va del punto al origen y el eje Z. 
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Fig. 2.6 


Fig. 2.7 
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En esta figura p es la distancia, € el primer ángulo y q el segundo. 

En algunas ocasiones los ejes no estarán distribuidos como hemos di- 
cho, sino que el eje vertical de la pantalla será el eje Z y el eje que «sale» 
de ella el eje Y. 


EJE 
Z 
EJE X 
EJE 
Y 
Fig. 2.8 


Por último, vamos a contar las dos operaciones más comunes que se 
realizan con los vectores. 


SUMA: Para sumar dos vectores se suman las coordenadas correspon- 
dientes, dando otro vector como resultado. 


Ej.: (2,3) + (5,7) = (2+5,3+7) 


MULTIPLICACIÓN POR UN NUMERO: Multiplicar un vector por un 
número cualquiera consiste en multiplicar cada una de las coordenadas 
de ese vector por el número dando otro vector como resultado. 


Ej.: 5*(6,9) = (5*6,5*9) 


Dados dos puntos cualesquiera del espacio (X1,Y1.Z1) y (X2,Y2,Z2), po- 
demos calcular el vector que les une restando las coordenadas de los dos. 


(VX,VY,VZ) = (X2-X1, Y2-Y1, Z2-Z1) 
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REPRESENTANDO OBJETOS EN 
LA PANTALLA JH 


INTRODUCCION > 


ASTA ahora no hemos dicho nada de cómo representar 
los puntos del espacio en la pantalla, ya que cada punto 
tiene tres coordenadas y hay que visualizarlas sobre un 
plano, esto es, sobre una superficie en dos dimensiones. 
El problema se puede comparar con el paso de una figura 
salida en el espacio al papel de un dibujante. En los pro- 
gramas del capítulo anterior hemos utilizado una serie de 
«trucos» O técnicas que nos permitían dibujar un vector 
en tres dimensiones sobre el plano de la pantalla. 

Estas técnicas son lo que se llama comúnmente técnicas de proyección, 
ya que lo que hacen es «proyectar» un punto del espacio sobre un plano 
de la siguiente forma: 


PLANO DE 
PROYECCION 


PUNTO PUNTO 
PROYECTADO 


ESPACIO 


Fig. 3.1 


21 


Desde el punto del espacio se traza una recta según una dirección de- 
terminada hasta que corte al plano de proyección donde se va a dibujar la 
figura. 

Existen diversas formas de proyectar sobre un plano, pero nosotros va- 
mos a manejar sólo dos de ellas: la proyección paralela y la proyección có- 
nica. 


PROYECCION PARALELA 


La proyección paralela es la más sencilla que podemos realizar. En este 
caso suponemos que el ojo del observador está lo suficientemente lejos del 
plano de proyección como para que las rectas que pasan por los puntos 
del cuerpo sean todas paralelas entre sí, o sea, que en este caso la distan- 
cia a la que está el observador no influye en la representación. 

Como «plano de proyección», que en resumen es la pantalla del orde- 
nador, vamos a utilizar en principio el plano XY con lo que todo aquello 
que pertenezca a este plano se dibujará tal y como es en realidad, mien- 
tras que todo lo que esté fuera de este plano sufrirá una deformación. 

La forma más sencilla de proyección paralela es suponer que el obser- 
vador tiene el plano XY perpendicularmente a él, de tal forma que pro- 
yectar un objeto sobre el plano consiste solamente en eliminar la coorde- 
nada Z de cada punto a pintar. 


Fig. 3.2 


Ya sabemos cómo proyectar un punto en la pantalla de nuestro orde- 
nador, pero ¿cómo pintar rectas que están en el espacio? Es muy sencillo: 
basta con calcular las proyecciones de los extremos de la recta y trazar en 
la pantalla (con un comando DRAWR, por ejemplo) una línea que los una. 


LL 


Si (X1,Y1) y (X2,Y2) son las proyecciones de los puntos, las instrucciones 


serían: 
PLOT X1,Y1 


DRAWR X2-X1,Y2-Y1 


Este es el método general, independientemente del tipo de proyección 
que emplearemos para trazar cuerpos en la pantalla de nuestro ordenador. 


1. Calculamos la proyección de un punto sobre el plano XY. 

2. Nos movemos a él o lo pintamos. 

3. Calculamos la proyección del siguiente punto a pintar y trazamos 
una recta en la pantalla del ordenador entre los dos puntos que hemos 
calculado. 


Lo único que variará de este método será el sistema que utilicemos para 
calcular la proyección del punto. 

El siguiente programa utiliza una proyección paralela tal y como la he- 
mos descrito y nos pide dos puntos, trazando la proyección de la recta que 
los une. 


10 REM Ir III RIERA 


-20 REM... : : *. 

30 REM xx PROGRAMA PARA SPECTRUM ses 
40 REM *% ** 
50 REM *x* PROYECCION ORTOGONAL *x 
60 REM x*%e E 
70 REM KXXXEEEAENE NENE EEE EE RR 
g0 CLSs 


0 REM PINTA LOS EJES 
100 PLOT 127,0 
110 DRAW 0,174 
120 PLOT 0,83 
130 DRAW 255,0 
140 REM PREGUNTA LOS DATOS 
150 INPUT "PRIMER PUNTO *;xin,yin,zin 
160 INPUT "SEGUNDO PUNTO ";¿xf,yf,z* 
170 REM CALCULA LA PROYECCION 
180 LET xí=xin: LET yi=yin 
190 LET x2=xf: LET y2=yf 
200 REM CENTRA EL ORIGEN 
210 LET x1i*=x1+127: LET yi=y1+03 
220 LET x2=x2+r127: LET y2=y2+83 
230 REM DIBUJA 
240 PLOT x1,y1 
250 DRAW x2-x1,y2- y1 
260 REM REPITE EL PROCESO 
270 GO TO 140 


Programa 3.1 
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Fig. 3.3 


Como vemos en el dibujo que produce este programa, el eje Z, perpen- 
dicular a la pantalla, no se ve, como consecuencia del tipo de proyección 
que utilizamos. 

Si queremos que el programa pinte una figura un poco más compleja 
sin necesidad de meter los datos cada vez, podemos meter las coordena- 
das de cada punto en una sentencia DATA e ir leyendo los puntos y pro- 
yectando. Como una figura compleja puede necesitar que nos movamos 
sin pintar, para cada punto añadiremos un dato más que nos indicará si la 
línea hay que pintarla o sólo moverse sin pintar, también nos va a servir 
para indicar si hay más datos o hemos llegado al final de la figura. El for- 
mato es: 


MODO 
MOVER 0 
PINTAR 1 

FIN -1 


De esta forma, en el programa siguiente pintamos un cubo en la pan- 
talla. 


A AL 


10 REM 33300036 3606 06 06 6 1 M6 IE M0 EI IO IM ME DE EI 6 IM MO MR 


20 REM x*x%* ** 
30 REM xx VERSION PARA IBM **e 
40 REM x*%* ** 
S0 REM x*x PROYECCION ORTOGONAL ee 
60 REM x*x ** 


A Ai 
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80 SCREEN 1 

90 CLS 

100 XO=160:Y0=100 

110 REM VER SI HA ACABADO 

120 READ COLORP 

130 1F COLORP=-1 THEN GOTO 400 
140 REM LEER EL PUNTO 

150 READ X,Y,Z 

160 REM CALCULAR LA PROYECCION 
170 PX =X 
180 PY = Y 
190 REM TRASLADAR EL ORIGEN 

200 X1=PX+X0 

210 Y1=PY+Y0 

220 REM VER SI HAY QUE DIBUJAR 

230 IF COLORP= 0 THEN PRESET (X1,Y1> 

240 IF COLORP= 1 THEN LINE - (X1,Y1) 

250 REM REPETIR EL PROCESO 

260 GOTO 120 . 

300 DATA 0,0,0,0,1,50,0,0,1,50,50,0,1,0,50,0 
310 DATA 1,0,50,50,1,0,0,50,1,50,0,50 

320 DATA 1,50,50,50,1,0,50,50,0,50,50,50 

330 DATA 1,50,50,0,0,50,0,50,1,50,0,0 

340 DATA 0,0,0,50,1,0,0,0,1,0,50,0,-1 

400 GOTO 400 


VARIACIONES PARA M.S.X. 


LINEA 680 SCREEN 2 


Programa 3.2 


Fig. 3.4 


El resultado de este programa es un poco desalentador, ya que sólo pro- 
duce un cuadrado en la pantalla. Esto es por el tipo de proyección emplea- 
do, al ser una proyección perpendicular al plano XY, y estar el cubo pues- 
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to de tal forma que las proyecciones de los vértices coinciden en un solo 
punto. 

Como vemos, la proyección paralela ortogonal es muy sencilla, pero 
no permite hacer gráficos muy sofisticados. 

Por ello, dentro de las proyecciones paralelas, podemos utilizar otro 
método, que es el de la proyección paralela oblicua. Este método consiste 
en suponer que el ojo no está en una dirección perpendicular al plano XY, 
sino que está «torcido», inclinado respecto a él. 


En este caso la fórmula que nos da el valor del punto sobre el plano 
XY es un poco más complicada. 

Primero tenemos que establecer la dirección desde donde vamos a pro- 
yectar el punto. Esto lo hacemos dando las tres coordenadas de un punto 
cualquiera del espacio cuyo vector de posición desde el origen tenga la 
misma dirección que la de proyección. 
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Ahora utilizando un razonamiento geométrico sencillo, podemos dedu- 
cir que la proyección de una coordenada X sobre el plano XY es: 


Siendo X,Y,Z el punto a proyectar y X0,Y0,Z0O las coordenadas del pun- 
to que nos da la dirección de proyección. 

En la figura siguiente podemos ver que es muy fácil de calcular por se- 
mejanza de triángulos. 


Fig. 3.7 
Igualmente para la coordenada Y queda: 


ZLYO 


PY = Y - 
ZO 


Modificando ligeramente el programa de dibujo del cubo para poder 
emplear esta proyección, nos EE este programa: 


10 REM. OOO === 
20 REM *x* AS 


30 REM *x PROGRAMA PARA AMSTRAD —** 
5 
50 REM x** PROYEC. OBLICUA——*x 
59 REM 7 == 


70 REM ci == 


80 MODE 1 

90 CLS:CLG 

100 X0=320:Y0=200 

105 LOCATE 1,25 

106 INPUT "LINEA DE PROYECCION X,Y,Z";XP,YP,ZP 

110 REM LEER SI SE ACABA 

120 READ COLOR 

130 IF COLOR = -1 THEN GOTO 320 

140 REM LEER EL PUNTO 

150 READ X,Y,Z 

160 REM CALCULAR LA PROYECCION 

170 X1=X-(Z*XP>/ZP 

180 Yi=Y-(ZxYP>/ZP 

190 REM TRASLADAR EL ORIGEN 

200 X1=X1+X0 

210 Y1=Y1+Y0 

220 REM VER SI HAY QUE DIBUJAR 

230 IF COLOR = 0 THEN MOVE X1,Y1 

240 IF COLOR = 1 THEN DRAW X1,Y1 

250 REM REPETIR EL PROCESO 

260 GOTO 120 

270 DATA 0,0,0,0,1,100,0,0,1,100,100,0,1,0,100,0 

280 DATA 1,0,100,100 

290 DATA 1,0,0,100,1,100,0,100,1,100,100,100 

300 DATA 1,0,100,100,0,100,100,100,1,100,100,0 

310 DATA 0,100,0,100,1,100,0,0,0,0,0,100,1,0,0,0,1,0, 
100,0,-1 

320 GOTO 320 


Programa 3.3 


Fig. 3.8 
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Si queremos cambiar la dirección de proyección basta con cambiar los- 
valores de X0,YO y ZO en el programa. 

Como vemos, ya da una representación del cubo mucho más realista y 
vistosa. 

Si en este programa cambiamos las sentencias DATA por otras podre- 


mos representar cualquier objeto que queramos. A continuación damos al- 
gunos ejemplos: 


10 REM 39 3e dea 6 a dE E RA 


20 REM xx kx 
30 REM x*x* PROGRAMA PARA SPECTRUM »*x* 
40 REM x*x XX 
50 REM xx PROYECCION OBLICUA ek 
$0 REM xx ** 
70 REM RRA 
80 CLS 


0 LET xo=127: LET yo=83 

100 REM LEER LOS DATOS 

110 INPUT "LINEA DE PROYECCION ";xp,yp,zp 
120 REM LEER SI SE ACABA 

130 READ color 

140 IF color=-1 THEN GO TO 500 

150 REM LEER EL PUNTO 

170 READ x,y,z 

180 REM CALCULA LA PROYECCION 

190 LET x1=x-(z*xp>/Zp 

200 LET yi=y-(zx*yp)/Zzp 

210 REM TRASLADA EL ORIGEN 

220 LET xí=x1+x0 

230 LET yi=yit+yo 

240 REM VER SI HAY QUE DIBUJAR 

250 IF color=1 THEN PLOT x1,y1 

260 IF color=0 THEN DRAW x1-ux,y1-uy 

2653 LET ux=x1: LET uy=yl1 

270 REM REPETIR EL PROCESO 

280 GO TO 120 

300 DATA 0,0,0,0,1,30,0,0,1,30,0,30,1,0,0,30 
310 DATA 1,0,0,0,1,15,30,15,1,0,0,30,0,30,0,30 
320 DATA 1,15,30,15,1,30,0,0,-1 


Programa 3.4 
29 


30 


Fig. 3.9 


REM E E DE DEE DE E DEI DEI 


—REM_ xx .. 
REM xx% VERSION PARA IBM *e 
REM xx *k 
REM_ ex PROYECCION OBLICUA % 
REM_ xx : ** 
REM 00066 dd 6 6 6 
SCREEN 1 
CES 

X0O=180:Y0=100 

LOCATE 25,1 

INPUT "LINEA DE PROYECCION :";XP,YP,ZP 
CcLsS 

REM VER SI HA ACABADO 

READ COLORP 

IF COLORP=-1 THEN GOTO 350 

REM LEER EL PUNTO - 

READ X,Y,2 

REM CALCULAR LA PROYECCION 

PX = X-(Z2x*XP>/2P 

PY = Y-(2rYP>/2P 

REM TRASLADAR EL ORIGEN 
X1=PX+X0 

Yi=PY+Y0 

REM VER SI HAY QUE DIBUJAR 

IF COLORP= 0 THEN PRESET (X1,Y1> 
IF COLORP= 1 THEN LINE - -(X1,Y1> 
REM REPETIR EL PROCESO 


Programa 3.5 


Fig. 3.10 


he 
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80 MODE 1 

0 CLS:CLG 

100 X0=320:Y0=200 

110 LOCATE 1,25 

120 INPUT "DISTANCIA FOCAL,pos xy ->";D,0ox,0y 

130 REM LEER SI SE ACABA 

140 READ COLOR 

150 IF COLOR = -1 THEN GOTO 340 

160 REM LEER EL PUNTO 

170 READ X,Y,2 

180 REM CALCULAR LA PROYECCION 

190 X1=Dx*(X-ox>/(D-Z>+0x 

200 Y1=Dx*(Y-oy)/(D-2)>+oy 

210 REM TRASLADAR EL ORIGEN 

220 X1=X1+X0 

230 Yi=Y1+Y0 

240 REM VER SI HAY QUE DIBUJAR 

250 IF COLOR = O THEN MOVE X1,Y1i 

260 IF COLOR = 1 THEN DRÁAW X1,Yi 

270 REM REPETIR EL PROCESO 

280 GOTO 140 

290 DATA 0,0,0,100 ,1,0,10,25,1,300,0,0,0,0,10,25 
300 DATA 1,0,40,0,1,0,83,0,1,33,83,0,1,65,35,0 
310 DATA 0,0,40,0,1,300,0,0,0,150,4,0,1,30,0,-100 
315 DATA 1,0,0,-100,1,0,10,-25,1,300,0,0,0,0,10,-25 
320 DATA 1,0,40,0 

330 DATA 0,0,0,-100,1,0,0,100,1,30,0,100,1,150,4,0,-1 
340 GOTO 340 


Programa 3.6 


Fig. 3.11 


La mejor forma de diseñar nuevos objetos consiste en dibujar sobre un 
papel cuadriculado la figura, con unos ejes sobre los que medir las coor- 
denadas de cada vértice y hacer una lista de vértices de tal forma que re- 
corramos la figura entera para poder pintarla. Si llegamos a un punto don- 
de tenemos que movernos sin pintar, para continuar la figura en otro lado, 
simplemente especificamos como primer parámetro del punto el 0. Y si he- 
mos terminado añadimos al final de los datos un —1. Hay que recordar que 
cada punto tiene cuatro parámetros, el primero indica si se pinta o no y 
los tres siguientes especifican las tres coordenadas del vértice. 


IZ 


Por ejemplo, para dibujar una pirámide hacemos 


— 
o 
oocooooooooo 


_ 
o 


Esta tabla luego la metemos en las DATA al final del programa, ponien- 
do siempre el -1 al final, leyendo la tabla de izquierda a derecha y de arri- 
ba abajo. 


——  PROYECCION CONICA 


El sistema de proyección que hemos utilizado hasta ahora carece de al- 
gunas de las propiedades importantes de la visión real; por ejemplo, no 
hace más pequeñas las cosas según están más lejos del observador, por su- 
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poner que el ojo está a una distancia indeterminada del plano donde pro- 
yectamos. Para conseguir este efecto y, por tanto, escenas más reales em- 
plearemos la llamada proyección cónica. 

Este tipo de proyección se basa en suponer que el ojo está a una dis- 
tancia determinada, D, del plano de proyección, y a partir de este punto 
trazar rayas que pasen por los vértices del objeto hasta que corten al plano 
de proyección donde nos darán las coordenadas del punto a pintar en la 
pantalla del ordenador. 


La forma de proyección cónica más sencilla es la que el punto de vista 
está sobre el eje Z a una distancia determinada, y proyectamos sobre el pla- 
no XY. 
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Para calcular en este caso las fórmulas de proyección utilizaremos un 
razonamiento parecido al que hicimos en el caso de la proyección parale- 
la oblicua. Si nos fijamos en la figura 


PUNTO DE VISTA 


Fig. 3.15 


y aplicando semejanza de triángulos obtenemos la fórmula para la proyec- 
ción de la coordenada X: 
D 


PX = . 
D-Z 


Xx 


donde D es la distancia del punto de vista al origen en el eje Z, Z y X son 
los valores de las coordenadas del punto a proyectar y PX es el valor de 
la coordenada X ya proyectada sobre el plano XY. 

Igualmente, para calcular la coordenada Y de la proyección tenemos: 


D 


PY = . 
yz 


Y 


Por supuesto, una vez calculados los valores de las coordenadas de la 
proyección, tenemos que convertirlos a verdaderos valores sobre la pan- 
talla de nuestro ordenador, trasladando al centro de la pantalla el origen 
de coordenadas. 

El programa que tenemos a continuación es un ejemplo de proyección 
cónica dibujando en la pantalla un cubo en perspectiva. 


IO 
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10 

20 

30 

40 

50 

60 

70 

80 

20 

100 
105 
110 
120 
125 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 


*% 
Ak 
.I 
*% 
*%k 


REM 3626 36 06 06 6 6 6 16 IE IE E E II IE II IE E ME ME E IE E IE E E E E A 
REM xx 
REM xx VERSION PARÁ IBM 
REM xx 
REM xx PROYECCION CONICA 
REM xx 
REM Ire 6 IE II DE IE II III IE IE IE IE IE MIE IE DI E E E E E E EE 
SCREEN 1 
CLS 

XO=160:Y0=100 

REM leer datos 

LOCATE 24,1 

INPUT " Distancia focal -> ";D 

CLS 

REM VER SI HA ACABADO 

READ COLORP 


IF COLORP=-1 THEN GOTO 340 

REM LEER EL PUNTO 

READ X,Y,Z 

REM CALCULAR LA PROYECCION 

PX = Dx*X/(D-Z)> 

PY = D*eY/(D-Z> 

REM TRASLADAR EL ORIGEN 
X1=PX+X0 

Yi=PY+YO 

REM VER SI HAY QUE DIBUJAR 

IF COLORP= O THEN PRESET (X1,Y1> 
IF COLORP= 1 THEN LINE -— (X1,Y1> 
REM REPETIR EL PROCESO 

GOTO 140 


DATA 0,0,0,0,1,50,0,0,1,50,50,0,1,0,50,0 


DATA 1,0,50,50,1,0,0,50,1,50,0,50 


DATA 1,50,50,50,1,0,50,50,0,50,50,50 


DATA 1,50,50,0,0,50,0,50,1,50,0,0 
DATA 0,0,0,50,1,0,0,0,1,0,50,0,-1 
GOTO 340 


VARIACIONES PARA M.S.X. 


LINEA 80 
LINEA 90 
LINEA 100 
LINEA 110 
LINEA 120 


QUITAR LA 


CcLs 

LOCATE 20,1 

INPUT "DISTANCIA FOCAL -> ";D 
SCREEN 2 

XO=160: YO=100 


LINEA 125 


Programa 3.7 


Fig. 3.16 


En este tipo de proyección también podemos desplazar el punto de vis- 
ta de tal manera que la proyección resultante sea oblicua, es decir, en vez 
de que el ojo esté situado sobre el eje Z pueda estar situado en cualquier 
punto del espacio. 

En este caso las fórmulas de proyección que resultan son: 


= D * 
PX = 573 * (X-0X) + 0X 


D 
Y = ——-* (Y-0Y) + 0Y 
P D-Z ( ) + 


donde X,Y,Z son las coordenadas espaciales del punto; PX,PY, las coorde- 
nadas del punto proyectado; D, la distancia perpendicular desde el punto 
de vista al plano XY; y OX,OY, las coordenadas X e Y del punto de vista. 
En esta proyección cónica oblicua el observador sigue mirando al pla- 
no XY de forma perpendicular, pero está desplazado respecto al eje Z las 
cantidades OX y OY. 
Un ejemplo de esta proyección lo da el programa siguiente: 


10 REM HELL AKA AA R EEE RRRRRRRIR 
R ES EX 


20 

30 REM x*x* PROGRAMA PARA SPECTRUM xx 
40 REM xx X 
50 REM xx PROYECCION CONICA *% 
60 REM xx ** 
70 REM AAA 
80 CLS 


90 LET xo=127: LET yo=83 
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100 REM LEER LOS DATOS 

110 INPUT “DISTANCIA FOCAL,X,Y ";d,ox,oy 
120 REM LEER SI SE ACABA 

130 READ color 

140 IF color=-1 THEN GO TO 500 

150 REM LEER EL PUNTO 

170 READ x,y,z 

180 REM CALCULA LA PROYECCION 

190 LET xi=d*(x-ox>/(d-z)+0x 

200 LET yi=d*(y-oy>/(d-z)+0y 

210 REM TRASLADA EL ORIGEN 

220 LET x1i=x1+xo 

230 LET yi=yi+yo 

240 REM VER SI HAY QUE DIBUJAR 

250 IF color=1 THEN PLOT x1,y1 

260 IF color=0 THEN DRAW x1-ux,y1-uy 
265 LET ux=x1: LET uy=y1 

270 REM REPETIR EL PROCESO 

280 60 TO 120 

300 DATA 0,0,0,0,1,30,0,0,1,30,30,0 
310 DATA 1,0,30,0,1,0,30,30 

320 DATA 1,0,0,30,1,30,0,30,1,30,30,30 
330 DATA 1,0,30,30,1,30,30,30,1,30,30,0 
340 DATA 0,30,0,30,1,30,0,0,0,0,0,30 
350 DATA 1,0,0,0,1,0,30,0,-1 


Programa 3.8 


Podemos cambiar en él las coordenadas del punto de vista para obte- 
ner diversas vistas del objeto, cambiando los valores de D, OX y OY. 


——— ESTRUCTURA GENERAL DE LOS PROGRAMAS 


Si nos fijamos en los programas que hemos realizado en este capítulo, 
todos tienen la misma estructura: 


BORRADO DE LA PANTALLA 
INICIALIZACION DE VARIABLES 
LEER UN PUNTO 
REPITE HASTA COLOR = - 1 
CALCULA PROYECCIONES (PX,PY) 
DESPLAZA EL ORIGEN 
PINTA UNA LINEA O MUEVE A ESE PUNTO 
LEE EL SIGUIENTE PUNTO 
FIN DEL REPITE 
FIN DEL PROGRAMA 
DATOS DEL OBJETO A REPRESENTAR 
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Esta estructura general de los programas se puede utilizar para cual- 
quier tipo de proyección cambiando sólo dos partes que varían según sea 
el tipo de proyección; primero cambiamos la inicialización de variables 
para meter en ella todos los valores que necesitamos en cada caso, y acto 
seguido cambiamos la parte de cálculo de proyecciones para ajustarlas al 
tipo escogido por nosotros. 

Es una estructura muy sencilla y se puede aplicar en todos los casos, 
incluso algunos más complejos que veremos más adelante. Podemos in- 
cluso investigar por nuestra cuenta y encontrar nuevas fórmulas de pro- 
yección con las que mejorar los dibujos de cuerpos en tres dimensiones. 


GENERALIZACION DEL SISTEMA DE PROYECCION 


Ya conocemos los sistemas básicos para representar en la pantalla del 
ordenador cuerpos en tres dimensiones. Podemos con ellos representar 
un cuerpo desde cualquier vista que nos imaginemos, pero con una limi- 
tación; en todos los métodos que utilizamos hasta ahora hemos proyecta- 
do sobre el plano XY, y esto impide que veamos los cuerpos desde otra vis- 
ta que no sea la frontal, esto es, el plano XY. 

Para solventar este problema debemos de variar ligeramente el enfo- 
que de la solución para poder proyectar sobre cualquier plano, lo que nos 
permitirá poder ver el objeto desde cualquier ángulo y posición del espa- 
cio. Gracias a esto podemos evitar el realizar proyecciones oblicuas, ya que 
para ver el objeto desde otra perspectiva lo que haremos será girar el pla- 
no de proyección, y no solamente la posición del observador, con lo que 
éste siempre está orientado perpendicularmente a dicho plano. 

Vamos a profundizar un poco más; hemos dicho que giramos el plano 
de proyección, como se ve en la siguiente figura: 


Fig. 3.17 
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Este plano lo vamos a especificar en coordenadas esféricas con un vec- 
tor perpendicular a él cuyos datos serán: 


= D - Distancia del observador al plano de proyección. 
a - ángulo que forma el observador con el plano YZ. 
b - ángulo que forma el observador con el plano ZX. 


Esta solución puede parecer un poco extraña para los que no tengan 
unos conocimientos de geometría vectorial, pero un plano queda perfec- 
tamente especificado dando un vector perpendicular a él. De todas formas, 
si esto o los procesos matemáticos siguientes no son entendidos, no es nin- 
gún obstáculo para poder realizar el programa de forma correcta, como 
ya veremos. 

El paso siguiente es un poco más complicado, y consiste en expresar 
los vectores de cada uno de los vértices en las coordenadas referidas al pla- 
no de proyección. Resumiendo, el proceso matemático, para aquellos que 
quieran investigar por su cuenta, consiste en: 

= Establecer un nuevo sistema de referencia girando los vectores uni- 
tarios de los X,Y,Z, según los ángulos a y b, para obtener un nuevo siste- 
ma de referencia en el cual expresar los vectores de posición de los vérti- 
ces. 

Pero podemos olvidarnos de esta definición matemática tan estricta 
considerando que, en el fondo, lo que hacemos es transformar la figura de 
forma que quede tal y como la veríamos desde el punto de vista que este- 
mos situados. 

Las fórmulas que resultan de aplicar esta transformación son las si- 
guientes: 


XT = X*COS(a) - Z*SIN(a) 
YT = Y*COS(b) - Z*COS(a)*SIN(b) X*SIN(a)*SIN(b) 
ZT = Z*COS(a)*COS(b) + X*SIN(a)*COS(b) + Y*SIN(b) 


Una vez obtenidos los puntos transformados de los vértices, lo único 
que tenemos que hacer es proyectar según alguna de las fórmulas que co- 
nocemos estos puntos, olvidándonos que el plano de proyección está gira- 
do, ya que con la transformación anterior es como si este plano se hubiera 
convertido en el plano XY normal. 

Con este método podemos ver ya desde cualquier punto de vista nues- 
tro objeto, e incluso podríamos hacer un programa que cambiara los án- 
gulos de observación para ir viendo el objeto desde perspectivas distintas 
de una forma continua, dando así la impresión de que estamos «volando» 
sobre él. Este es el método en el que se harán los famosos «simuladores 
de vuelo» para microordenadores. 
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Empleando todos estos conceptos en forma de sentencias obtenemos 
un programa como el siguiente: 


10 
20 
30 
40 


REM AHHH ERA EA RR RAR 


REM xx ex 
REM xx PROGRAMA PARA AMSTRAD A 
REM x%% *% 
REM xx PROYEC. GENERAL ** 
REM xx EE 
REM AHI RRA 
MODE 1 

CES: tc6 

X0=320 :Y0=200 :d=200 


LOCATE 1,25 

INPUT "angulos A,B->";A,B 
A=Ax*P1/180:B=Bx*P1/180 
A1=CO0S(A) :A2=SINC(A> 
B1=C0S(B) :B2=SIN(B)> 

REM LEER SI SE ACABA 

READ COLOR 

IF COLOR = -1í THEN GOTO 410 
REM LEER EL PUNTO 


200 READ X,Y,Z 


REM CALCULAR LA PROYECCION 

X1=A1*X-A2xZ 

Yi=Y*B1-Zx*A1*B2-X*A2*B2 
Z1=Zx*A1*B1+XxA2x*B1+Yx*D2 

X1=D*X1/(D-Z1> 

Y1=Dx*Y1/(D-21) 

REM TRASLADAR EL ORIGEN 

X1=X1+X0 

Y1=Y1+Y0 

REM VER SI HAY QUE DIBUJAR 

IF COLOR = 0 THEN MOVE X1,Y1 

IF COLOR = 1 THEN DRAW.X1,Y1 

REM REPETIR EL PROCESO 

GOTO 170 

DATA 0,0,0,100 ,1,0,10,25,1,300,0,0,0,0,10,25 
DATA 1,0,40,0,1,0,83,0,1,33,83,0,1,65,35,0 
DATA 0,0,40,0,1,300,0,0,0,150,4,0,1,30,0,-100 
DATA 1,0,0,-100,1,0,10,-25,1,300,0,0,0,0,10,-25 
DATA 1,0,40,0 

DATA 0,0,0,-100,1,0,0,100,1,30,0,100,1,150,4,0,-1 
GOTO 410 


Programa 3.9 


Como vemos, la estructura es muy parecida a la planteada en el apar- 
tado anterior, añadiendo antes del cálculo de las proyecciones las fórmu- 
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las para transformar los puntos, y en la parte de inicialización de variables 
unos cálculos previos necesarios para realizarla. Cambiando D, a, o b en 
el programa conseguiremos vistas distintas del mismo cuerpo. 

Con todos estos algoritmos que hemos escrito somos capaces ya de rea- 
lizar un dibujo tridimensional en la pantalla tan complicado como quera- 
mos, y verlo desde cualquier punto del espacio. Hay una sofisticación más, 
que sería hacer que el plano de proyección no estuviera centrado en el ori- 
gen, sino que podría estar situado en cualquier punto del espacio, y la mo- 
dificación del algoritmo consiste en restar a cada punto de la figura el vec- 
tor que nos indica el punto del espacio donde se encuentra el plano, antes 
de hacer las transformaciones y proyecciones de dichos puntos. 

Otra sofisticación sería añadir un tercer giro de balanceo sobre el eje 
de observación, algo así como el alabeo de un avión. 

Con estas dos modificaciones añadidas podríamos realizar un simula- 
dor de vuelo muy sencillo que nos permitiría recorrer un mundo simula- 
do en nuestro ordenador. 


42 


GRAFICAS E HISTOGRAMAS - 


HORA trataremos un tema diferente: cómo representar 
datos en dos y tres dimensiones. 

Uno de los principales usos del ordenador es el trata- 
miento de grandes cantidades de datos y la generación de 
nuevos datos a partir de éstos. 

Una vez realizado el tratamiento de los datos tenemos 
grandes listas interminables de números, que son difícil- 
mente interpretables por seres humanos. 

Para llegar a una conclusión práctica dichos datos se 
pueden presentar bajo la forma de gráficas y de histogramas. 


GRAFICAS 


Esta forma suele usarse cuando existen grandes cantidades de datos y 
se requiere un alto grado de exactitud. Sus principales aplicaciones son 
científicas, tales como representación de funciones matemáticas, trayec- 
torias de partículas, etc. 

Comenzaremos con dos dimensiones. 

En dos dimensiones podemos representar sólo dos datos, es decir, a 
cada valor en horizontal le corresponderá un único en vertical (funciones 
de una sola variable). 

La representación se hará mediante puntos, pero podría realizarse uti- 
lizando pequeñas rectas que unan los puntos dando una mayor aproxima- 
ción, cambiando la sentencia: 


PLOT X, Y 


por la sentencia: 


DRAW X, Y 
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Obsérvese que la 


primera parte del programa desplaza el origen de 


coordenadas, y cambia la escala para poder apreciar adecuadamente la 
zona que más nos interesa. 
En el siguiente ejemplo calcularemos la gráfica de la función seno. 
Para representar otra función, tanto en éste como en los siguientes pro- 
gramas, bastará cambiar de definición de función. 


150 FOR 


AAA EA 
Ek *e 
**PROGRAMA PARA SPECTRUM *x 
ex xx 
xx GRÁFICAS EN DOS - D  x*x* 
EX ex 
AAA AAA EEK 


INICIALIZA VARIABLES 

XM=-4: LET XX=4: LET X0O=50 
YM=-4: LET YX=4: LET YO=0 
XP=(XX-XM)>/200: LET XSCALL=1/XP 
YSCALL=200/<(YX-YM> 

X=XM TO XX STEP XP 


160 GO SUB 500 
170 LET X1=INT <((X-XM)x*XSCALL )+X0O 


190 LET 


Y1i=INT ((Y-YM)>x*YSCALL>+YO 


200 PLOT X1,Y1 

210 NEXT X 

220 STOP 

500 REM CALCULO DE LA FUNCION 


510 LET 


Y=SIN (X> 


520 RETURN 


Programa 4.1 


Fig. 4.1 


Si queremos observar tres datos relacionados entre sí (funciones de dos 
variables), en los que la altura depende de la posición en un plano, debe- 
mos usar tres dimensiones. 

Como la pantalla del ordenador sólo tiene dos, debemos proyectar so- 
bre ella, tal como se vio en el capítulo anterior. 

El siguiente programa recorre los puntos de un plano, calcula el valor 
a representar y lo proyecta sobre un plano. Utilizaremos la proyección obli- 
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cua ortogonal, pero si se quisiera utilizar otra sería suficiente con sustituir 
las fórmulas de la proyección por otras de las vistas en el capítulo anterior. 

Al proyectar, algunos puntos pueden coincidir sobre el plano de pro- 
yección. Como sólo se deberá pintar lo que esté más cerca del observa- 
dor, los de atrás quedarán ocultos (para una mayor información véase el 
capítulo 7). El algoritmo utilizado consiste en borrar desde el punto que 
dibujamos hasta el final de la pantalla, con lo que eliminamos los puntos 
que no deban ser vistos. 

Al igual que en el programa de dos dimensiones, se ajustarán las esca- 
las al tamaño de la pantalla. 

También en este caso dibujamos la función seno, sólo que esta vez en 
tres dimensiones. 


10 REM 33630 36 36 36 16 1616 E IE IE IE IE DEI IE IE IE IE IE HE IE E EA 


20 REM xx A 
30 REM *x%* PROGRAMA PARA AMSTRAD ex 
40 REM xx ex 
50 REM xx GRAFICAS EN 3 - D *xe 
60 REM x*x%* xk 
70 REM RHKXELHELERERECIERIERIRIRRA 
80 MODE 1 


90 CLS:CLG 
95 REM INCIALIZA LOS VALORES 

100 X0=270:Y0=250 

110 XMIN=-4 :XMAX=4 

120 YMIN=-4 :XMAX=4 

130 ZMIN=-1 :ZMAX=1 

135 REM CALCULA LA ESCALA 

140 XSTEP=(XMAX-XMIN)>/300:XSCALL=1/XSTEP 
150 YSTEP=(YMAX-YMIN)/300 : YSCALL=1/YSTEP 
160 ZSCALL =200/(ZMAX-ZMIN) 

170 FOR Y= YMIN TO YMAX STEP YSTEP 

180 FOR X= XMIN TO XMAX STEP XSTEP 

190 GOSUB 400 

200 REM AJUSTAMOS LA ESCALA 

210 X1=INTC((X-XMIN) *XSCALL) 

220 Y1=INT<<Y-YMIN)*YSCALL) 

230 Zi=INT<(Z-ZMIN)>*ZSCALL) 

240 REM PROYECTAMOS 

250 XP=X1-Z1*0.3+X0 

260 YP=Y1-21x*0.5+Y0 

270 REM BORRA LA LINEA OCULTAS Y PINTA 
280 MOVE XP,YP 

290 DRAW XP,400,0 

300 PLOT XP,YP,1 

310 NEXT X 
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320 NEXT Y 

330 END 

400 REM CALCULO DE LA FUNCION 
410 Z=SINCSQRIXAX+ YY) > 

420 RETURN 


Programa 4.2 


Fig. 4.2 


Se observará que el tiempo que tarda el ordenador en completar la grá- 
fica es bastante largo. 

Para que éste sea ligeramente menor existe una forma que ahorra algo 
de tiempo, y nos da una idea clara de la gráfica. 

Consiste en no representar todos los puntos, sino sólo algunos, como 
si se tomaran los puntos situados sobre una rejilla superpuesta a la gráfica. 

Para ello la variable XS de la sentencia 


FOR X = XMIN TO XMAX STEP XS 


no será constante a lo largo de todo el programa, como en el caso ante- 
rior, sino que será variable a lo largo del programa. 

Al igual que en los anteriores programas representaremos la función 
seno. 
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REM ARA 


20 REM x*x%* * 
30 REM xx VERSION PARA 1BM xx 
40 REM x*x* : .x 
S0 REM xx GRAFICAS EN 3 - D .% 
60 REM x*% e 
70 REM Irse de 6 E dd E IE IE II IE II EII II EII II EII IE IE IE E 
80 SCREEN 1 

SOCES 

95 REM DEFINE LOS PARAMETROS 

100 XO=100:YO=50 

110 I=5 

120 XMIN=-4 : XMAX=4 

130 YMIN=-4 : YMAX=4 

140 ZMIN=-1 : 2MAX=1 

150 XSTEP=(XMAX - XMIN>/150:XSCALL = 1/XSTEP 

160 YSTEP=(YMAX - YMIN>/150:YSCALL = 1/YSTEP 

170 ZSCALL = 100 /(2MAX - ZMIN)> 

180 FOR Y = YMIN TO YMAX STEP YSTEP 

185 REM AJUSTA EL STEP PARA TARDAR MENOS 

190 1F 1<5 THEN I=1+1:XST =XSTEP * 5 

200 IF 1=5S THEN I=0:XST = XSTEP 

210 FOR X = XMIN TO XMAX STEP XSTEP 

220 GOSUB 330 

225 REM AJUSTAMOS LA ESCALA 

230 Xi = XO + INT ((X-XMIN)>XXSCALL > 

240 Yi = YO + INT (<Y-YMIN>)*YSCALL > 

250 Zi = 20 + INT ((Z-ZMIN>*ZSCALL> 

260 REM PROYECTAMOS 

270 XP =-=X1--= Z1 *-.3 

280 YP = Y1 - 21 * ,5 

285 REM BORRA LAS LINEAS OCULTAS Y PINTA 

290 LINE <XP,YP>-(XP,199),0 

300 PSET <XP,YP> 

310 NEXT X 

320 NEXT Y 

325 END 

330 REM CALCULO DE LA FUNCION 

340 2 = SIN C(SQR <(X*XX+YXY))> 

350 RETURN 


VARIACIONES PARA M.S.X. 


LINEA 80 SCREEN 2 

LINEA 120 XI=-4: XA=4 

LINEA 130 YI=-4:YA=4 

LINEA 140 ZI=-1:ZA=1 

LINEA 150 XP=(XA-XI)/150: XL=1/XP 
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LINEA 
LINEA 
LINEA 
LINEA 
LINEA 
LINEA 
LINEA 
LINEA 
LINEA 


1650 
170 
180 
190 
200 
210 
230 
240 
250 


YP=(YA-Y1)/150: YL=1/YP 
ZL=100/(ZA-Z1) z 
FOR Y=YI TO YA STEP YP 

IF 1<5 THEN I=I+1:XT=XPx*5 
IF 1I=5 THEN I=0: XT=XP 
FOR X=XI TO XA STEP XP 
X1=X0+INT ((X-XI)*XL) 
Yi=YO+INT((Y-YI)%*YL)> 
Z1i=ZO+INT((Z-Z1)*ZL) 


Programa 4.3 


Fig. 4.3 


En principio parece posible ampliar la representación de datos a un ma- 
yor número, pero esto implicaría ver en cuatro dimensiones lo cual, des- 
graciadamente, nos es imposible a los seres humanos por muchas proyec- 
ciones que hagamos. 
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HISTOGRAMAS 


Cuando los datos a representar no necesitan mucha precisión, o cuan- 
do disponemos de pocos de ellos, es más práctico utilizar diagramas de 
barras o histogramas. Esto consiste en representar puntos «mas gordos» 
en forma de barras. 
Su aplicación está muy extendida en el ámbito comercial para observar va- 
riaciones y tendencias de ventas, stocks, etc. 

Los histogramas en dos dimensiones pueden hacerse con los caracte- 


res, pero, debido a su poca vistosidad, lo realizamos como gráfica. 
Veamos el ejemplo de tener ciertos datos en función del tiempo. 


10 REM 
20 REM 
30 REM 
40 REM 
50 REM 
$0 REM 
70 REM 
80 REM 


HKXLEEEEE EL ERAARIRAARA 


Ex Ex 
**PROGRAMA PARA SPECTRUM x*x 
ex “+. 
** HISTOGRAMAS 2 - D xx 
** ** 


ERA EA EEE ER 
INICIALIZAR VARIABLES 


90 READ N 


100 DIM 
110 FOR 


T(N> 
I=1 TON 


120 READ TC1)> 
130 NEXT 1 


140 FOR 


I=1 TON 


150 LET X=Ix*10+50 
160 LET Y=T(1>*10+20 


170 FOR 


J=1 TO 7 


180 PLOT X,Y 

190 DRAW 0,-T<I>*10 
200 NEXT J 

210 NEXT 1 


500 DATÁ 20,1,6,8,1,5,2,7,13,51911,7,3,8,9,/215161%5,1 


Programa 4.4 


Ñ 1 


Fig. 4.4 
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Aunque no lo describiremos aquí, se pueden representar varios datos 
sobre un mismo gráfico utilizando barras de diferentes colores. 

También existe la posibilidad de representar, en vez de barras, un di- 
bujo del objeto sobre cuyos datos se estén representando; por ejemplo, es- 
pigas de distinta altura al representar la producción de trigo. Debido a lo 
poco que añade no realizaremos dicho programa. 

La generalización a tres dimensiones es equivalente al caso de las grá- 
ficas en tres dimensiones, sustituyendo las barras por ortoedros. 

Al igual que en el caso anterior, se proyectarán sobre un plano las coor- 
denadas obtenidas. 


E 


20 REM x*x *. 
30 REM xx VERSION PARA IBM e 
40 REM x*x e 
50 REM *x% HISTOGRAMAS 3 - D = ** 
60 REM x*x ** 
70 REM HEHE EXA. EERRRRAR AR 
80 SCREEN 1 

0 CLS = 

100 REM DEFINE LOS PARAMETROS 

110 C=1 


120 XO=100:Y0=170 

130 XMIN=-4 :XMAX=4 

140 Z2MIN=-4 : ZMAX=4 

150 YMIN=-1 :YMAX=1 

160 XSCALL=150/(XMAX -— XMIN)> ¿XSTEP = 15 /XSCALL 
170 Z2SCALL=150/(2MAX - ZMIN)> :ZSTEP = 15 /ZSCALL 
180 YSCALL = 100 /C(YMAX - YMIN) 

190 FOR Z = ZMAX TO ZMIN STEP -ZSTEP 

200 FOR X = XMAX TO XMIN STEP -XSTEP 

210 GOSUB 300 

220 REM AJUSTAMOS LA ESCALA 

230 XD = INT. ((X-XMIN)>*XSCALL > 

240 YD = INT (<Y-YMIN>)XYSCALL> 

250 2D = INT ((Z2-2MIN>*ZSCALL> 

260 GOSUB 420 


300 REM CALCULO DE LÁ FUNCION 
310 Y = SIN (SQR (XxX+ZXZ)) 

320 RETURN 

330 REM RUTINA QUE UNE DOS PUNTOS 
340 XP = X1 - Z1 * .5 + XO 

IO NP YOR 

360 XP1= X2 - 22. * .5 + XO 


SO 


370 YPi2-Y0_=Y2-=-22—3 

380 LINE <(XP,YP)>-<XP1,YP1>,C 

390 IF C=0 AND P=1 THEN LINE <XP,YP>-<(XP1,YP1)> 
400 IF C=2 THEN LINE (XP, YP)-(XP1,YP1> 
410 RETURN 

420 REM RUTINA QUE DIBUJA CUBOS 
430 C=2 

440 Xi=XD:Y1=YD:Z1=2ZD 

450 X2=XD:Y2=YD:22=2D-?7*Z2SCALL/10 
460 IX=XSCALL/10:1Y=0:1Z=0 

470 GOSUB 580 

480 X1=XD:Y1=YD:Z1=ZD 

490 X2=XD:Y2= 0:22=2D 

500 1X=0:IY=0:12=-ZSCALL/10:C=0 
510 GO0SsuB 580 

520 C=1 

530 X1i=XD:Y1=YD:Z1=ZD-ZSCALL*7/10 
540 X2=XD:Y2= 0:22=ZD-ZSCALL*7/10 
550 IX=XSCALL/10:1Y=0:12=0 

560 GOSUB 580 

570 RETURN 

580 REM RUTINA DE HACER CARAS 

590 FOR P=1 TO 7? 

600 X1i=X1+1X31X2=X2+1X 

610 Yi=Y1+1Y1Y2=Y2+1Y 

$20 Z1=m21+12:22=22+12 

630 GOSUB 330 

640 NEXT P 

650 RETURN 


VARIACIONES PARA M.S.X. 


LINEA 80 SCREEN 2 

LINEA 130 XI=-4: XA=4 

LINEA 140 ZI=-4: ZA=4 

LINEA 150 YI=-1:YA=1 

LINEA 160 XL=150/(XA-X1):XP=15/XL 
LINEA 170 ZL=150/(ZA-Z1):ZP=15/ZL 
LINEA 180 YL=100/(YA-YI) 

LINEA 190 FOR Z=ZA TO ZI STEP -ZP 
LINEA 200 FOR X=XA TO XI STEP -XP 
LINEA 230 XD=INT ((X-XI)%*XL) 

LINEA 240 YD=INT ( (Y-YI)x*YL)> 

LINEA 250 ZD=INT ((Z-Z1)+*ZL) 

LINEA 260 XQ=X2-Z2*0.5+X0 

LINEA 370 YQ=Y0-Y2-Z2*0.5 

LINEA 380 LINE (XF', YP)- (XQ, YQ) ,C 


LINEA 
Ya) 

LINEA 
LINEA 
LINEA 
LINEA 
LINEA 
LINEA 
LINEA 


390 


400 
450 
460 
500 
530 
540 
3550 


IF C=0 AND P=1 THEN LINE (XP, YP)- (XQ, 


IF C=2 THEN LINE (XP, YF) — (XQ), YQ) 
X2=XD:Y2=YD:Z2=ZD-7*ZL/10 
IX=XL/10: 1Y=0: 1Z=0 

1X=0: IY=0: 1Z=-ZL/10:C=0 
Xi=XD:Y1=YD:Z1i=ZD-2ZLx*7/10 
X2=XD:Y2=0 :Z2=ZD-ZL*7/10 
IX=XL/10: 1Y=0: 1Z=0 


Programa 4.5 


Al igual que antes, en vez de ortoedros se pueden trazar otro tipo de 
figuras, tales como barras, líneas, etc.; pero tampoco lo realizaremos, por 
lo poco que añadiría, ya que consistiría en variar el dibujo del ortoedro 
por la figura que deseemos. 
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TRANSFORMACIONES 
Y MATRICES 


INTRODUCCION 


ON todo lo que hemos visto hasta ahora, sobre todo en el 
tercer capítulo, somos ya capaces de visualizar en la pan- 
talla del ordenador desde cualquier punto de vista, pero 
no sabemos nada todavía de cómo mover un objeto en el 
espacio para luego pintarlo. En este capítulo veremos 
cómo se hace esto, además de establecer una notación 
más homogénea con la que realizar los cálculos sobre los 
puntos del objeto a representar. Aprenderemos a trasla- 
dar un objeto en el espacio, girarlo sin cambiar el punto 
de vista, aumentar o disminuir su tamaño, y a deformarlo para, a partir de 
un objeto simple, obtener figuras más complicadas. 
Antes de entrar en detalles sobre cada una de estas operaciones vamos 
a explicar el concepto general de transformación. Una transformación es 
un conjunto de operaciones que convierten algo en otra cosa distinta. En 
nuestro caso vamos a convertir un punto del espacio en otro punto del es- 
pacio con coordenadas diferentes. Al conjunto de operaciones y constan- 
tes necesarias para realizar esto se le llama transformación. 


ESCALADO 


La transformación más sencilla que podemos hacer es aumentar o dis- 
minuir el tamaño del objeto de forma uniforme con un factor de escala 
dado. 

Para conseguir esto lo único que tenemos que hacer es multiplicar cada 
una de las coordenadas del punto por un factor de escala constante. Si este 
razonamiento lo aplicamos a cada punto del objeto tendremos un nuevo 
objeto más grande o más pequeño que el original. Para conseguir un cuer- 
po más grande el factor de escala tendrá que ser mayor que 1, y para dis- 
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minuir el tamaño del objeto, el factor deberá ser menor que 1; por ejem- 
plo, si el factor de escala vale 0,5 conseguiremos un cuerpo de la mitad 
de tamaño que el original. 

Las fórmulas para conseguir este efecto son: 


XT = S*X 
YT = S*Y 
ZT =S*Z 


Donde S es el factor de escala y X,Y,Z las coordenadas del punto ori- 
ginal y XT, YT, ZT las coordenadas del punto transformado. 

Si el factor de escala lo hacemos negativo conseguiremos una «re- 
flexión» del objeto, cambiaremos la parte de arriba con la de abajo y la par- 
te izquierda con la derecha, como si viéramos su imagen en un espejo. 

El factor de escala no tiene por qué ser igual para todas las coordena- 
das; X,Y,Z pueden tener factores de escala distinta, con lo que consegui- 
remos cambiar el tamaño del objeto de una forma distinta con respecto a 
cada dimensión, o sea, lo deformaremos. Esto puede ser útil para, por 
ejemplo, a partir de un cubo, obtener cualquier tipo de paralelepípedo. 

Una aplicación de esta transformación la podemos ver en el siguiente 
programa: 


10 REM 336969696 36 6 96 36 96 26 M6 36d IE HE MEE IE IE IM 6 0 0 6 E 0 10 ME E 


20 REM xx ** 
30 REM *%%*e VERSION PARA IBM e 
40 REM x*x* *. 
SO REM x** CAMBIO DE ESCALA ** 
60 REM x*+* ** 
70 REM HH HHI II MM IE E E E E E E E DE E DE DE E E E 0 MEM 
80 SCREEN 1 

0 CLS 


95 PI=3.1415926548 

100 XO=160:Y0=100 

105 D=200 

110 A=30x*P1/180:B=30x*P1/180 
120 A1=COSC(A) :A2=SIN(A) 

130 B1=C0S(B):B2=SIN(B> 

140 LOCATE 25,1 

150 INPUT “ESCALA (X,Y,2)> "¿SX,SY,SZ 
160 CLS 

170 FOR I=1 TO 2 

180 IF I=2 THEN RESTORE 

190 REM VER SI HA ACABADO 

200 READ COLORP 

210 IF COLORP=-1 THEN GOTO 385 
220 REM LEER EL PUNTO 
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230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
385 
390 
400 
410 
420 
430 
440 


READ 


X,Y,2 


IF 1=2 THEN X=Xx*SX:Y=Yx*SY :2=Zx*SZ 
REM CALCULAR LA PROYECCION 
X=A1*X-A2%*Z 
Y=YxB1-Z*A1*B2-X*A2*B2 
2=Z2*A1XB1+XAM2*B1+Yx*B2 

PX =D*X/(D-2> 

PY =D*Y/(D-Z> 

REM TRASLADAR EL ORIGEN 
X1=PX+X0 

Yi=PY+Y0 

REM VER SI HAY QUE DIBUJAR 

IF COLORP= 0 THEN PRESET (X1,Y1> 
IF COLORP= 1 THEN LINE - (X1,Y1> 
REM REPETIR EL PROCESO 


GOTO 
NEXT 
DATA 
DATA 
DATA 
DATA 
DATA 
GOTO 


200 

1 

0,0,0,0,1,50,0,0,1,50,0,50,1,0,0,50 
1,0,0,0,1,25,50,25,1,0,0,50,0,50,0,50 
1,25,50,25,1,50,0,0,1,25,-50,25,1,0,0,0 
1,25,-50,25,0,0,0,50,1,25,-50,25 
1,50,0,50,-1 

440 


VARIACIONES PARA M.S.X. 


LINEA 80 CLS 
LINEA 90 LOCATE 20,1: INPUT "ESCALA (X,Y,Z) 


"5SX,SY,SZ 
LINEA 140 SCREEN 2 


BORRAR LA LINEA 150 


Programa 5.1 


DI 


Fig. 5.1 


Este programa pinta primero el objeto sin modificar, y luego pide tres 
valores que van a ser los tres factores de escala con los que transformar 
la figura, pintando la figura transformada encima. 


A 


ROTACION 


Otra transformación muy usada consiste en girar el cuerpo un deter- 
minado ángulo alrededor de uno de los tres ejes de coordenadas, con lo 
que conseguimos ver el objeto en distintas posiciones sin necesidad de 
cambiar el punto de vista. 

Para girar un ángulo alrededor del eje Z, por ejemplo, aplicamos las si- 
guientes fórmulas: 


XT = X*COS(a) + Y*SIN(a) 
YT = -X*SIN(a) + Y*COS(a) 
Con estas fórmulas conseguimos girar el objeto alrededor del eje Z en 


el sentido horario. Como podemos observar, la coordenada Z no sufre nin- 
gún cambio, ya que al girar sobre este eje permanece constante su valor. 


SÓ 


Para girar sobre otros ejes las fórmulas son: 


En 


= GIRO ALREDEDOR DEL EJE Y: 
XT = X*COS(a) + Z*SIN(a) 
ZT = -X*SIN(a) + Z*COS(a) 

= GIRO ALREDEDOR DEL EJE X: 
YT = Y*COS(a) + Z*SIN(a) 
ZT = -Y*SIN(a) + Z*COS(a) 


el siguiente programa podremos comprobar el funcionamiento de 


esta transformación: 


10 REM 99 363 HH HR AR 
20 REM xx xx 
30 REM *x* PROGRAMA PARA AMSTRAD A 
40 REM xx ** 
50 REM x** ROTACION ee 
60 REM x*+* ** 
70 REM 44636 d de 1 36 6d dE E ID IE IE E E E A 
80 MODE 1 

90 CLS:CLO 

100 X0=320:Y0=200:d=500 

110 a=10:b=50 


115 
117 
120 
130 
131 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 


270 


280 
290 
300 
310 
320 
330 


A1=C0S(a) :A2=SIN(a)> 
B1=C0S(b) :b2=SIN(b) 

LOCATE 1,25 

INPUT "ANGULO ->";C 
C=CxP1/180:C1=C0S5(C) :C2=SIN(C) 
FOR ¡=1 TO 2 

IF ¡=2 THEN RESTORE 

REM LEER SI SE ACABA 

READ COLOR 

IF COLOR = -1 THEN GOTO 355 
REM LEER EL PUNTO 

READ X,Y,2 

IF ¡=2 THEN X1=XxC1+Z2*C2:2=Z2%*C1-X*C2:X=X1 
REM CALCULAR LA PROYECCION 
X1=A1*X-A2xZ 
Yi=YxB1-Zx*A1*B2-X*A2*B2 
Z1i=2x*A1x*B1+Xx*A2xD1+Yx*D2 
X1i=D*X1/(D-Z1)> 
YimD*Y1/(D-21) 

REM TRASLADAR EL ORIGEN 
X1=X1+X0 

Yi=Y1+Y0 

REM VER SI HAY QUE DIBUJAR 
IF COLOR = O THEN MOVE Xi ,Y1 
IF COLOR = 1 THEN DRAW X1 ,Y1 


OL 


340 
350 
355 
360 
370 
380 
385 
390 
400 
410 


Al ponerlo en marcha nos pedirá un ángulo con el que rotar la figura 
alrededor del eje Y y la pintará rotada. Cambiando las fórmulas de rota- 


REM REPETIR EL PROCESO 


GOTO 


170 

i 

0,0,0,100 ,1,0,10,25,1,300,0,0,0,0,10,25 
1,0,40,0,1,0,83,0,1,33,83,0,1,65,35,0 
0,0,40,0,1,300,0,0,0,150,4,0,1,30,0,-100 
1,0,0,-100,1 ,0,10,-23,1 ,300,0,0,0,0,10,-25 
1,0,40,0 
0,0,0,-100,1,0,0,100,1,30,0,100,1,150,4,0,-1 
410 


Programa 5.2 


Fig. 5.2 


ción podemos girar el cuerpo sobre cualquiera de los tres ejes. 


Trasladar un objeto de una posición a otra consiste simplemente en su- 
mar o restar un vector de coordenadas XM,YM,ZM a todos los puntos de 


TRASLACION 


la figura, con lo que las fórmulas quedan en este caso: 
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XT =X+XM 
YT = Y + YM 
ZT=Z+2ZM 


En 


estas fórmulas tan sencillas podemos poner el cuerpo en el lugar 


del espacio que queramos. 
El programa descrito a continuación hace precisamente eso, trasladar 
a un punto del espacio nuestro objeto: 


REM ARALAR 
-.. xx 


REM xx VERSION PARA IBM k 
REM xx **k 
REM xx TRASLADAR e. 
REM xx HX% 
REM IHR E E E IR 
SCREEN 1 
cES 

PI=3.141592654$ 

X0=160:Y0=100 

DIS=300 

A=-30*P1/180:B=30x*P1/180 

A1=COS(A) :A2=SINC(A) 

B1=C0S(B) :B2=SIN(B> 

LOCATE 25,1 

INPUT "DESPLAZAMIENTOS (X,Y,Z>"¿XM,YM,ZM 

CES 

FOR I=1 TO 2 

IF 1=2 THEN RESTORE 

REM VER SI HA ACABADO 

READ COLORP 

IF COLORP=-1 THEN GOTO 440 

REM LEER EL PUNTO 

READ X,Y,2 

X=X*.3:1Y=Yx*,3:12=2*.3 

IF I=1 THEN 300 

REM TRASLADA 

X=X+XM:Y=Y+YM:Z=Z+ZM 

REM CALCULAR LA PROYECCION 

Xz=A1xX-A2*Z 

=Y*B1 -Z2x*A1 *B2-Xr*A2x*B2 
Z=2xA1xB1+XxAM2xB1+YxB2 

PX =DIS*X/(DIS-Z> 

PY =DIS*Y/(DIS-Z)> 

REM TRASLADAR EL ORIGEN 

X1=PX+X0 

Y1i=Y0-PY 

REM VER SI HAY QUE DIBUJAR 

IF COLORP= O THEN PSET (X1,Y1> 

IF COLORP= 1 THEN LINE - (X1,Y1> 

REM REPETIR EL PROCESO 

GOTO 220 
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440 NEXT 1 

450 DATA 0,0,0,100,1,0,10,25,1,300,0,0,0,0,10,25 

460 DATA 1,0,40,0,1,0,83,0,1,33,83,0,1,65,35,0 

470 DATA 0,0,40,0,1,300,0,0,0,150,4,0,1,30,0,-100 
480 DATA 1,0,0,-100,1,0,10,-25,1,300,0,0,0,0,10,-25 
490 DATA 1,0,40,0 

500 DATA 0,0,0,-100,1,0,0,100,1,30,0,100,1,150,4,0,-1 
510 GOTO 510 


VARIACIONES PARA M.S.X. 

LINEA 80 CLS 

LINEA 90 LOCATE 20,1: INFUT "DESPLAZAMIENTOS 
(X3Y,Z) "¿XM, YM, ZM 

LINEA 160 SCREEN 2 


BORRAR LA LINEA 170 


Programa 5.3 


Fig. 5.3 


Hay que tener cuidado en no dar unas coordenadas muy grandes al pun- 
to en el cual queremos trasladar nuestra figura, ya que podría llegar a sa- 
lirse de los límites de la pantalla. 
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RESUMEN DE LAS TRANSFORMACIONES 


ESCALADO: 


XT = X*S1 
YT = Y*S2 
ZT = Y*S3 


ROTACION: 


— SOBRE EL EJE Z; 
XT = X*COS(a) + Y*SIN(a) 
YT = -X*SIN(a) + Y*COS(a) 
— SOBRE EL EJE Y; 
XT = X*COS(a) + Z*SIN(a) 
ZT = -X*SIN(a) + Z*COS(a) 
— SOBRE EL EJE X; 
YT = Y*COS(a) + Z*SIN(a) 
ZT = -Y*SIN(a) + Z*COS(a) 


TRASLACION: 
XT =X + XM 
YT = Y + YM 
ZT=Z+2ZM 


La fórmula general para una transformación de cualquier tipo sería: 


XT = AX*X + BX*Y + CX*Z + KX 
YT = AY*X + BY*Y + CY*Z + KY 
ZT = AZ*X + BZ*Y + CZ*Z + KZ 


Donde AX, AY, AZ, BX, BY, BZ, CX, CY, CZ, KX, KY, KZ serían cual- 
quier tipo de números o expresiones matemáticas. 

Esta fórmula general nos dice que la coordenada transformada es fun- 
ción de las tres coordenadas del punto más una constante o fórmula. 


COMBINACIÓN DE TRANSFORMACIONES 


Por ahora hemos hecho transformaciones simples, pero nada impide 
que realicemos cambios más complejos combinando diversas transforma- 
ciones. 

El proceso es muy sencillo; sólo hay que ir aplicando en cadena cada 
una de las fórmulas que conocemos para realizar una transformación com- 
pleja. Unicamente hay que tener cuidado con una cosa, y es que la trasla- 
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ción hay que realizarla en último lugar, realizando antes giros y escaladas, 
ya que si no los resultados no serían normalmente los deseados. 


Los pasos a seguir habitualmente serían los siguientes: 


— Traslación del objeto al centro de la pantalla si no estuviera defini- 
do en el origen. Esto se realiza aplicando una traslación con el vector -XM, 
-YM, -ZM, donde XM, YM, ZM es la posición del CENTRO GEOMETRICO 
del cuerpo. 

— Una vez está el objeto en el origen de coordenadas podemos rotarlo 
o escalarlo como queramos, teniendo en cuenta que en cada transforma- 
ción hay que utilizar como coordenadas de partida los valores producidos 
por la transformación anterior. 

— Trasladarlo al punto que deseemos, el mismo que ocupaba u otro 
distinto donde queramos colocarlo. 


Por ejemplo, en el programa siguiente cogemos una figura e introdu- 
ciendo unos datos que nos irá pidiendo lo giramos alrededor de los tres 
ejes, lo escalamos una cierta cantidad y, por último, lo trasladamos a una 
determinada posición del espacio. 


10 REM ases d 6 dd dd EI II E E MI HE IE 


20 REM xx Ak 
30 REM xx VERSION PARA 1BM **r 
40 REM xx% *x 
50 REM x*x AHORA TODO JUNTO A 
60 REM x*x* e 
7O REM 336306 de e 3 6 36 36 36 2 M6 DE ME IE DE IE E E 0 E E E ER 
80 SCREEN 1 

90 CES 


100 PI=3.141592654H 

110 XO=140:Y0=100 

120 DIS=300 

130 A=-30*P1/180:B=30*P1/180 

140 A1=CO0S(A) :A2=SINCA) 

150 B1=C0S(B) :B2=SINCB> 

160 LOCATE 25,1 

170 INPUT "GIROS A,B,C"¿C,D,E 

180 C=Cx*P1/180:D=D*P1/180:E=E*PI/180 
190 C1=COS(C):C2=SINCC) 

200 D1=C0S(D) :D2=SIN(D)> 

210 El=COS(E) :E2=SINCE)> 

220 LOCATE 25,1 

230 INPUT "DESPLAZAMIENTOS (X,Y,Z)"¡XM,YM,ZM 
240 CLS 

250 LOCATE 25,1 

260 INPUT "ESCALA (X,Y,Z)> "¡SX,SY,SZ 
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270 CLS 
280 FOR I=1 TO 2 

290 1F I=2 THEN RESTORE 

300 REM VER SI HA ACABADO 

310 READ COLORP 

320 IF COLORP=-1 THEN GOTO 580 

330 REM LEER EL PUNTO 

340 READ X,Y,2 

345 X=Xx*.51Y=Y*.5:2=2*.5 

350 IF I=1 THEN 440 

360 REM GIRA 

370 Yi=Y*C1+Z*02:Z=2*C1-Y*C2:Y=Y1 

380 X1=Xx*D1+Z2*D2:2=2*D1-X*D2:X=X1 

390 X1=X*E1+YX*EZ21Y=Yx*E1-X*E21X=X1 

400 REM CAMBIA LA ESCALA 

410 X=Xx*SX:Y=Y*8Y 1Z=2*SZ 

420 REM TRASLADA 

930 X=X+XM:¡Y=Y+YM:Z=Z+2M 

440 REM CALCULAR LA PROYECCION 

450 X=M1*X-A2*Z 

460 Y=Y*B1-Z*A1*B2-X*A2*B2 

470 Z=2*A1*B1+X*A2*B1+Yx*B2 

480 PX =DIS*X/(DIS-Z> 

490 PY =DIS*Y/(DIS-Z)> 

500 REM TRASLADAR EL ORIGEN 

510 X1=PX+X0 

520 Y1=Y0-PY 

530 REM VER SI HAY QUE DIBUJAR 

540 IF COLORP= 0 THEN PSET (X1,Y1) 

550 1F COLORP= 1 THEN LINE - (X1,Y1) 

560 REM REPETIR EL PROCESO 

570 GOTO 310 

580 NEXT 1 

590 DATA 0,0,0,100,1,0,10,25,1,300,0,0,0,0,10,25 
$00 DATA 1,0,40,0,1,0,83,0,1,33,83,0,1,65,35,0 
$10 DATA 0,0,40,0,1,300,0,0,0,150,4, A 1, ¿30 ,0,-100 


620 DATA 1,0 ;0,-100, 1,0 ,10,-25, i, 300, ,0,0,10,-25 
630 DATA 1,0, 40,0 

640 DATA 0,0,0,-100,1,0,0,100,1,30,0,100,1,150,4,0,-1 
650 GOTO 650 


VARIACIONES PARA M.S.X. 


LINEA 80 CLS 

LINEA 90 LOCATE 20,1: INPUT "GIOROS A,B,C";C,D,E 
LINEA 160 CLS 

LINEA 170 LOCATE 20,1: INPUT "DESPLAZAMIENTOS 
(X,Y,Z) "5 XM, YM, ZM 

LINEA 220 CLS 
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LINEA 230 LOCATE 20,1: INPUT "ESCALA (X,Y,Z) 
"5SX,SY,SZ 
LINEA 240 SCREEN 2 


QUITAR LÁS LINEAS 250 Y 260 


Programa 5.4 


Fig. 5.4 


El esquema general de cualquier programa sería el siguiente: 


OPERACIONES PRELIMINARES (BORRADO DE PANTALLA, ETC.) 
INTRODUCCION DE DATOS 
INICIALIZACION DE VARIABLES Y CONSTANTES 
REPITE HASTA QUE COLOR = -1 
LEE UN PUNTO 


GIRO 
APLICA DIVERSAS TRANSFORMACIONES |TRASLACION 
ESCALADO 
CALCULA LAS PROYECCIONES (PX,PY) 
TRASLADA AL CENTRO DE LA PANTALLA 
PINTA O MUEVE A ESE PUNTO 
FIN DEL REPITE 
FIN DEL PROGRAMA 
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Este esquema general que damos es muy parecido al que vimos en el 
capítulo tercero, añadiendo sólo la parte de transformaciones al objeto que 
tengamos que pintar. 


CALCULO CON MATRICES 


Ya conocemos las fórmulas que nos permiten hacer transformaciones 
sencillas y combinaciones de ellas, pero las hemos aplicado de una forma 
que, aunque simple, es un poco tediosa, porque debemos aplicar una de- 
trás de otra a los puntos que queremos transformar. Para evitar esto po- 
dríamos combinar en una sola fórmula todas las transformaciones que va- 
yamos a aplicar. 

Para ello vamos a utilizar la notación matricial. Una matriz consiste en 
un conjunto de números ordenados según una tabla de filas y columnas, 
igual que las variables con subíndice del BASIC. Un ejemplo de matriz 
sería: 


1 11 -34 
2 8 -2 
3 9 28 
5 6 0 


El concepto es sencillo de entender, pero lo que ya no es tan sencillo 
es la forma de operar con ellas. El lector que no tenga conocimientos su- 
ficientes de matemáticas puede pasar por alto esta sección sin perder nin- 
guna de las posibilidades, o bien puede leer el apéndice donde se especi- 
fican las operaciones con matrices y algunos conceptos útiles sobre ellas. 

Según este tipo de notación, aplicar una transformación a un punto en 
el espacio sería multiplicar el trío de valores que son sus coordenadas por 
una matriz de transformación. 


ab 6 
(XT,YT,ZT) = (X,Y,Z)» l|d e f 
g hi 


donde las letras a...i son los coeficientes de la transformación. 
Según esta fórmula general, las fórmulas para la transformación de es- 
calado quedarían: 


Si 0.0 
ATYEZI)= (MX YZ)> lO S2 0 
0 0 83 


Esta fórmula es equivalente a las tres dadas en el apartado de escalado. 
Igualmente para una rotación sobre el eje Z sería: 


COS(a) SIN(a) 0 
-SIN(a) COS(a) O 
0 0 1 


(XT,YT,ZT) = (X,Y,Z) - 
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Pero esta notación no sirve para aplicar la fórmula de la traslación, por- 
que los coeficientes para sumar al final de las ecuaciones generales de 
transformación no salen por ningún sitio. Para evitar esto se utiliza un sis- 
tema de coordenadas homogéneas. En este sistema, además de tener el 
trío de coordenadas (X,Y,Z), tenemos una cuarta coordenada que vamos 
a llamar T y que siempre tomará el valor 1. De esta forma, las coordena- 
das de un punto del espacio quedan de la siguiente manera (X,Y,Z,1) y las 
matrices de transformación, en vez de tener tres filas y tres columnas, tie- 
nen cuatro filas y cuatro columnas. 

Con este nuevo sistema de coordenadas las fórmulas para las transfor- 
maciones simples quedan: 


ESCALADO 
Si 0.0.0 
4 [po .s2 0 0 
ATITZTO =D 0 0583 0 
o 00 50.1 
ROTACION 
— SOBRE EL EJE Z 
COS(a) SIN(a) O O 
(XT.YT,ZT,1) =(X.Y,Z,1) * -SIN(a) COS(a) 0 0 
0 0 1-0: 
0 0 071 
— SOBRE EL EJE Y 
COS(a) 0 -SIN(a) 0 
3 A 0 1 0 0 
(XT, YT,ZT,1) = (X,Y,Z,1) O -SIN(a) COS(a) 0 
0 0 0 1 
— SOBRE EL EJE X 
1 0 0 0 
a O  COS(a) SIN(a) 0 
(XT, YT,ZT,1) = (X,Y,Z,1) * -SIN(a) 0 COS(a) 0 
0 0 0 1 
TRASLACION 
1 0 CO) 
E 0 1 0 0 
(XT,YT,ZT 1) =(XY,ZD* | o 0 10 
XM YM ZM 1 


Al desarrollar estas fórmulas nos quedan exactamente las mismas que 
las que planteamos al definir las transformaciones. 
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La ventaja del uso de matrices es que si queremos combinar varias 
transformaciones sólo tenemos que multiplicar entre sí las matrices 
correspondientes a las transformaciones simples; por ejemplo, para hacer 
una traslación del punto (3,3,3) al origen y rotar el resultado 45 grados en 
el eje Z, podemos hacer: 


1 0 0 Ol [| COS(PI/4) SIN(PI/4) 0 
0 1 0 0ll,-SIN(PI/4) COS(PI/4) 0 
0. 0 1.0 0 0 1 
23301 0 0 0 


Siendo A la matriz resultado del producto, y ahora basta con aplicar 
esta matriz, que representa una transformación compleja al vector. 


(XT, YT,ZT,1) = ((,Y,Z,1) +A 


Sólo debemos tener en cuenta una condición, que la multiplicación de 
matrices no es conmutativa, por lo que no es lo mismo girar y luego tras- 
ladar que primero trasladar y luego girar. 

Por supuesto, se pueden encadenar más de dos transformaciones siem- 
pre que el resultado sea una sola matriz para aplicarla luego a los puntos 
del objeto. 

Esta notación matricial nos permite incluso generalizar más el concep- 
to de transformación, incluyendo en ella los cálculos necesarios para trans- 
formar los.puntos del espacio, tal y como son en realidad, a puntos del es- 
pacio desde el punto de vista del observador, englobando en éstas cálcu- 
los entonces todos los giros y traslaciones de los que hablábamos en el úl- 
timo apartado del capítulo 3. Con lo que entonces podremos introducir la 
matriz de transformación, que llamaremos matriz de transformación del 
punto de vista en los cálculos generales de la transformación. Entonces 
sólo deberemos aplicar las fórmulas para calcular la perspectiva, que sí 
son independientes, obteniendo los puntos en dos dimensiones en la pan- 
talla. 

Para evitar dolores de cabeza y tiempo a los lectores, ponemos aquí la 
matriz correspondiente a esta última transformación: 


- 000 


COS(a) -SIN(a)SIN(b) SIN(a)COS(b) 0 
0 COS(b) SIN(b) 0 
-SIN(a)  -COS(a)SIN(b) COS(a)COS(b) 0 
0 0 0 1 


donde R es la distancia del observador al origen; a, el ángulo que forma 
con el plano XZ; b, el ángulo que forma con el eje y. 

De todas formas, hay que recordar que esto es sólo una notación y so- 
lamente eso; las fórmulas y cálculos son las mismas, y muchas veces es 
más fácil y legible escribir en un programa las cosas paso a paso aunque 
sea un poco más lento. 
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En algunos programas del capítulo 3 y de éste nos habremos dado cuen- 
ta de que al introducir unos datos determinados el programa no funciona, 
o si lo hace, lo hace mal. Esto es porque en ellos no hemos tenido en cuen- 
ta algunas cosas especiales como, por ejemplo, que la distancia del obser- 
vador al plano de proyección sea cero, u otros similares. Todos estos pro- 
blemas son fácilmente subsanables por el lector. 

Un caso que puede darse es que el punto de observación en la proyec- 
ción cónica se encuentre dentro del objeto que queremos representar, en- 
tonces los resultados son francamente desastrosos y habría que diseñar un 
sistema para evitar dibujar la parte del cuerpo que está detrás del obser- 
vador. 
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APLICACIONES DIVERSAS 6 


Jl 


INTRODUCCION 


N este capítulo vamos a realizar una serie de ejemplos, 
como aplicación de las técnicas de representación, que ya 
conocemos. Aprenderemos, por ejemplo, a construir un 
cuerpo en tres dimensiones a partir de un dibujo en dos 
dimensiones, por rotación de esta figura sobre un eje o 
por traslación. También veremos cómo mover figuras 
para crear efectos animados en tres dimensiones, y cómo 
representar varios objetos a la vez en la pantalla. Estas son 
=== algunas de las aplicaciones tipicas que podemos realizar 
con los gráficos de tres dimensiones, pero no son las únicas; nosotros po- 
demos crear cualquier aplicación que se nos ocurra, desarrollando nues- 
tros propios programas, aplicando las técnicas y procesos que hemos 
aprendido en los capítulos anteriores. 


JLL 


OBJETOS EN MOVIMIENTO 


Crear la ilusión de movimiento en tres dimensiones en la pantalla de 
nuestro ordenador es una de las aplicaciones más vistosas que podemos 
llegar a realizar y, sin embargo, es también una de las más sencillas de pro- 
gramar. 

El movimiento en el ordenador se puede simular pintando un objeto 
en una posición determinada, borrándolo y volviéndolo a pintar ligera- 
mente desplazado de su posición inicial. Para conseguir esto vamos a uti- 
lizar una forma especial en la pantalla que emplea una operación lógica, 
el OR exclusivo, XOR; que si al pintar un punto en la pantalla éste no es- 
taba pintado, lo pinta con su color correspondiente, y si ya estaba pintado, 
lo borra dejando el color del fondo. Gracias a esta opción la operación 
de borrado consiste simplemente en volver a pintar el objeto donde esta- 
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ba. En el Spectrum esta opción se consigue con la instrucción OVER 1, en 
Amstrad con PRINT CHR$(23) + CHR$(1) y en el caso de que nuestro or- 
denador no tuviera opción XOR, lo que haremos será pintar primero el ob- 
jeto con el color adecuado para luego borrarlo pintándolo en el color del 


fondo. 
Para mover el objeto aplicaremos cualquiera de las transformaciones 


que ya conocemos; por ejemplo, el siguiente programa mueve un objeto 
alrededor del eje Z: 


10 REM RAR RRANAANRENAAR AAA == 
30 REM xx VERSION PARA 18M 
40 REM x%x 
50 REM-=*x* GIRANDO EL OBJETO — = 
60 REM exe A 
70 REM AAA = 
80 SCREEN 1 A A 
BES == === 
100 PI=3.1415926548 
110 X0=1601Y0=100 AAA 
AS === 
130 INE=-15*PI/180 RÁ 
140 A=-30xP1/180:B=30*P1/180 === 
== A > 
160 B1=C0S(B):B2=SIN(B) ES 
170 C=0:D=01E=0:XM=-100: :YM=-100:2M=-50. === 
180 SX=1:SY=1:82=1 ===> 
190 C=Cx*P1/180:D=D*P1/1801E=ExXPI/180. 
200 C1=C0S(C) 1C2=SINCC) : 
210 DI=COS(D) :D2=SIN(D> 
220 El=COS(E) :E2=SINCE) 
230 FOR I=1 TO 2 === 
240 RESTORE == >> 
250 REM VER SI HA ACABADO 
260 READ -COLORP - e == = = = e. 
270 1F COLORP=-1 THEN GOTO 530. 
-280—REM_LESR-5L—PÚUNTO — == : 
290 READ X,Y,Z 
300 X=Xx*. 5:Y=Yx.5: Z2=Ze.5 RR 
-. 310 REM GIRA => a > SS - 
220 YI=YRCIPZRCZ1ZEZECI ARO 
330 X1=XADI+ZIDZ1Z=ZRDI ADE IX L 
240 XI=XREL+YREZ1Y=YRE1-XME2:X=X1 a 
350 REM REM CAMBIA LA ESCALA o _ a o 
360 X=X8SX 1 Y=YXSY 12=28SZ : 
370 REM TRASLADA 
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380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
525 
530 
540 
550 
560 
570 
580 
590 
600 
$10 
$20 
630 
640 
650 
660 
$70 
$80 


X=X+XM:Y=Y+YM:Z=Z+ZM 

REM CALCULAR LA PROYECCION 

X=A1xX-A2x*Z 

Y=Y*B1-Zx*A1*B2-X*AZ2X*BZ 
2=2Zx*A1xB1+Xx*A2xB1+YxB2 

PX =DIS*X/(DIS-Z> 

PY =DIS*Y/(DIS-Z)> 

REM TRASLADAR EL ORIGEN 

X1=PX+X0 

Y1=Y0-PY 

REM VER SI HAY QUE DIBUJAR 

IF COLORP= O THEN PSET (X1,Y1> 

IF COLORP= 1 THEN LINE - (X1,Y1>,I MOD 2 

REM REPETIR EL PROCESO 

GOTO 260 

GOTO 525 

NEXT 1 

GOTO 410 

DATA 0,0,0,100,1,0,10,25,1,300,0,0,0,0,10,25 
DATÁ 1,0,40,0,1,0,83,0,1,33,83,0,1,65,35,0 
DATA 0,0,40,0,1,300,0,0,0,150,4,0,1,30,0,-100 
DATA 1,0,0,-100,1,0,10,-25,1,300,0,0,0,0,10,-25 
DATA 1,0,40,0 

DATA 0,0,0,-100,1,0,0,100,1,30,0,100,1,150,4,0,-1 
REM CAMBIA LOS DATOS 

C=C+ INC 

D=D+ IND 

E=E+INE 

XM=XM*E 1 + INX 

YM=YMxE2+ INY 

ZM=ZM+ INZ 

GOTO 200 


VARIACIONES PARA M.S.X. 


LINEA 680 SCREEN 2 
LINEA 130 IE=-15*PI/180 
LINEA 620 C=C+IC 

LINEA 630 D=D+ID 

LINEA 640 E=E+IE 

LINEA 650 XM=XMx*E1+1X 
LINEA 660 YM=YMx*E2+1Y 
LINEA 670 ZM=ZM+1Z 


Programa 6.1 
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Fig. 6.1 


El programa es igual que los del capítulo 5, con la diferencia de que 
en este caso las transformaciones son variables y cambian cada vez que se 
repite el bucle, la rotación en el eje Z en el programa anterior. 

Otra forma de crear movimiento es no mover el objeto, sino la posi- 
ción del observador, empleando la proyección generalizada de la que ha- 
blamos en el capítulo 3. 

Ahora, en vez de cambiar las transformaciones para hacerlas variables, 
lo que habría que cambiar son los datos relativos a la posición del obser- 
vador para simular un movimiento de éste. 

El siguiente programa hace precisamente eso, va moviendo la posición 
del observador para simular un movimiento de acercamiento en espiral. 


10 REM 2393636 dde ed dE E E RR RR RR 
20 REM xx ae 
30 REM x*x* VERSION PARA IBM *L 
40 REM *x% ek 
50 REM xx MOVIMIENTO DE OBSERVADOR ** 
$0 REM xx ** 
ZO REM RR RAR RR 
80 SCREEN 1 


?0 CLS 
100 PI=3.1415926548$ 


Liz 


110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 


X0=160:Y0=100 

DIS=300 
INA=-5*P1/180 : INB=5*P1/180 : INDIS=-3 
A=0x*P1/180:B=90*PI1/180 
A1=COS(A) :A2=SINCA) 
B1=C0S(B) :B2=SIN(B) 

FOR I=1 TO 2 

RESTORE 

REM VER SI HA ACABADO 

READ COLORP 

IF COLORP=-1 THEN GOTO 410 
REM LEER EL PUNTO 


READ X,Y,Z 
X=X*.5¡Y=Y*.5:12=Z*.5 

REM GIRA 

REM CALCULAR LA PROYECCION 
X=A1x*X-A2*2 
Y=YxB1-ZxA1*B2-X*A2XB2 
Z=2*AM1%*B1+XXA2XB1+YXB2 


PX =DIS*X/(DIS-Z) 

PY =DIS*Y/(DIS-Z) 

REM TRASLADAR EL ORIGEN 

X1=PX+X0 

Y1=Y0-PY 

REM VER SI HAY QUE DIBUJAR 

IF COLORP= 0 THEN PSET (X1,Y1) 

IF COLORP= 1 THEN LINE - (X1,Y1)>,1 MOD 2 

REM REPETIR EL PROCESO 

GOTO 200 

GOTO 400 

NEXT 1 

GOTO 490 

DATA 0,0,0,100,1,0,10,25,1,300,0,0,0,0,10,25 
DATA 1,0,40,0,1,0,83,0,1,33,83,0,1,65,35,0 
DATA 0,0,40,0,1,300,0,0,0,150,4,0,1,30,0,-100 
DATA 1,0,0,-100,1,0,10,-25,1,300,0,0,0,0,10,-25 
DATA 1,0,40,0 


DATA 0,0,0,-100,1,0,0,100,1,30,0,100,1,150,4,0,-1 


REM CAMBIA LOS DATOS 
A=A+ INA 

B=B+ INB 
DIS=DIS+INDIS 

GOTO 150 
YM=YMxE2+ 1NY 

ZM=ZM+ INZ 

GOTO 140 


VARIACIONES PARA M.SiX. 
LINEA 80 SCREEN 2 


LS 


10 B=B+IB_ 
LINEA 520 DIS=DIS+IN 
<= oLINEA 540 YM=YMx*E2+1Y 


LINEA 550 ZM=ZM+IZ 


Programa 6.2 
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Fig. 6.2 


Al ejecutar cualquiera de los dos programas anteriores nos habremos 
dado cuenta que son muy lentos, esto es, por estar en BASIC, pero los mis- 
mos algoritmos podrían ser programados en un lenguaje más rápido, PAS- 
CAL, o mejor ensamblador, consiguiendo unos efectos muy realistas. 


MN 


GENERACION DE CUERPOS DE REVOLUCION 


Hay muchos objetos en el mundo real cuyo diseño está basado en la 
creación de un perfil en dos dimensiones transformándolo en un cuerpo 
tridimensional girando este perfil sobre un eje determinado. 


EN 
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PERFIL 


Fig. 6.3 


Realizar esto con un ordenador es muy sencillo, solamente hay que 
preocuparse de llevar un poco de orden a la hora de hacer los cálculos. 


Primero hay que almacenar, en una DATA por ejemplo, las coordena- 
das del perfil, de tal forma que la coordenada Z sea siempre O y una vez 
hecho esto ir rotando este perfil alrededor del eje Z para conseguir las dis- 
tintas secciones de la figura almacenándolas en una matriz con tres subín- 
dices, tal que el tercer subíndice indica la coordenada X,Y o Z del punto; 
el segundo indica la sección a la que pertenece el punto y el primero el 
punto de la sección. 


Para realizar los giros sólo hay que aplicar unas sencillas fórmulas a 
las coordenadas X e Y originales, ya que la coordenada Z permanece cons- 
tante. Las fórmulas son: 


X(w) = X COS(a) 
Y(w) = Y SIN(a) 


Donde a es un ángulo que varía entre O y 360 grados, con un paso de 
360/n, siendo n el número de secciones. 


Una vez llena la matriz con los puntos del cuerpo que hemos genera- 
do, la vamos recorriendo según las filas; la primera coordenada, para pin- 
tar los perfiles en la pantalla, y luego la leemos por columnas para unir las 
distintas secciones entre sí. 


Ef 


490 LOCATE Ey 28 AAA 
140 INPUT. rdlstancia focal aserrada 
0 LOBA 


300 NEXT j 


— PERA 0H 
480 1F j=í THEN MOVE px,py 


540 py=dx(y-oy 


Una modificación interesante en este programa sería que, una vez cal- 
culados los puntos del objeto, se almacenaran en una cinta o disco, para 
más adelante poderlos utilizar sin necesidad de volver a calcular la figura. 


TÍ 


Hay que tener en cuenta que este programa realiza una gran cantidad 
de cálculos y utiliza mucha memoria para almacenar los puntos, por lo 
que no es conveniente hacer un número de secciones excesivo. 


El esquema general del programa sería: 


LEER NUMERO DE PUNTOS DEL PERFIL 
LEER NUMERO DE SECCIONES 
LEER LA PERSPECTIVA A UTILIZAR 
FOR I=1 a número de puntos del perfil 
LEER COORDENADA DEL PUNTO I 
FOR J=2 a número de secciones 
CALCULA LA PROYECCION Y ALMACENA EN MATRIZ 
FIN DEL BUCLE J 
FIN DEL BUCLE I 
FOR I=1 a NUMERO DE SECCIONES 


FOR J=1 a NUMERO DE PUNTOS DE UNA SECCION 
UNE PROYECTA EL PUNTO (1,3) 
SECCIONES FIN DEL BUCLE J 
FIN DEL BUCLE I 


FOR I=1 a NUMERO DE PUNTOS DE UNA SECCION 
FOR J=1 a NUMERO DE SECCIONES 
PINTA PROYECTA EL PUNTO (J,1) 
SECCIONES FIN DEL BUCLE J 
UNE PUNTO FINAL CON PUNTO INICIAL 
FIN DEL BUCLE I 


WN 


CUERPOS FORMADOS POR TRASLACION 


Otra forma de generar cuerpos a partir de figuras en dos dimensiones 
es por traslación, que consiste en desplazar una figura paralelamente a sí 
misma una cierta distancia, uniendo vértices homólogos. 


A 


---—»> 


=---» 


FIGURA 2-D FIGURA 3-D 
Fig. 6.5 
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El programa para generar cuerpos de esta manera es muy parecido al 
programa anterior, pero más sencillo, ya que no hay que hacer giros de nin- 
gún tipo; la única operación consiste en copiar las coordenadas del dibujo 
en dos dimensiones añadiéndole la tercera coordenada que le falta. 

La forma de pintarlo sí es completamente igual: primero se pintan las 
dos superficies y a continuación las unimos mediante trazas verticales. 


LS 


1020 LET PY=Dx*(0Y-Y)>/(D-Z>+50+0Y 
- 1030 RETURN 
2000 DATA 7,30,0,15,15,0,40,-15,15,-30,0,-20,20,20,-20 


Programa 6.4 


Fig. 6.6 


Partiendo de una serie de figuras sobre uno de los planos XY, XZ o YZ, 
podemos llegar a construir una escena todo lo compleja que queramos. 


A 


ESCENAS MULTIPLES 


Dibujar una escena en la cual aparezcan una serie de objetos, algunos 
de ellos repetidos, y en distintas posiciones no es más que repetir tantas 
veces el proceso de pintar y proyectar una figura como objetos queramos 
que tenga ésta. 

El programa que cierra este capítulo es una muestra de ello. 

En él tenemos los datos de dos objetos, un cubo y un avión, y con ellos 
vamos a realizar una escena compleja. 

El procedimiento es el siguiente: 

Por cada objeto que queramos dibujar leeremos sus coordenadas ori- 
ginales de las DATA correspondientes y le aplicaremos las transformacio- 
nes adecuadas para colocarlo en el lugar del espacio que queramos, pro- 
cediendo seguidamente a pintarlo. 


A 


20 REM xx : : = ** 

30 REM x** VERSION PARA IBM 4% 
== 40 REM ** Ñ a 
RE PAE MUCHO OBJETOS JUNTOS e 
60 REM *x* == ** 


A E 


80 SCREEN 1 
90 CLS 


100 
110 
120 
130 
140 
150 
160 


PI=3.1415926548 
X0=160:Y0=100:DIS=1000 
A=30*P1/180:B=30*P1/180 
A1=COS(A) :A2=SINCA) 

B1=C0S(B) :B2=SIN(B) 

READ N 

DIM OBJ<N) ,DAT(N, 3,3) 

FOR I=1 TO N 

READ 0BJ(C1)> 

FOR K=1 TO 3 

FOR J=1 TO 3 

READ DAT(1I,K,J> 

NEXT J,K,1 

FOR I= 1 TON 

0B=0BJ(1>/10 

RESTORE 

READ A 

IF -A<X>0B THEN GOTO 260 
C=DATC(1,1,1>:D=DAT(1,1,2>1E=DAT(1,1,3) 
SX=DAT(1,2,1):8Y=DAT(1,2,2)182=DAT(1,2,3) 
XM=DAT(1,3,1):YM=DAT(1,3,2):2M=DAT(1,3,3> 
C=Cx*P1/180:D=D*P1/180:E=Ex*P1/180 
C1=C0S(C)1C2=SINCC) 

D1=C0S(D) 1D2=SINCD> 

El=C0OS(E) 1E2=SINCE> 

REM VER SI HA ACABADO 

READ COLORP 

IF COLORP=-1 THEN GOTO 630 
REM LEER EL PUNTO 

READ X,Y,Z 

REM GIRA 
Y1=Y*C1+2C212=2*C1-YXC21Y=Y1 
X1=X*D1+2*D2:12=Z*D1-X*D21X=X1 
X1=X*E1+Yx*E2:1Y=Yx*E1-X*E2:X=X1 
REM CAMBIA LA ESCALA 
X=XeSX 1 Y=YRSY 1 Z=2eSZ 

REM TRASLADA 
X=X+XM1Y=Y+YM12=Z+2M 

REM CALCULAR LA PROYECCION 
X=A1*X-A2*Z 
Y=Yx*B1-Z*A1*B2-X*A2*B2 
Z=Z*A1*B1+X*A2X*B1+YXB2 

PX =DIS*X/(DIS-2) 

PY =DIS*Y/(DIS-Z) 

REM TRASLADAR EL ORIGEN 
X1=PX+X0 
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570 Y1i=Y0-PY 
580 REM VER SI HAY QUE DIBUJAR 
590 IF COLORP= 0 THEN PSET <(X1,Y1> 
$00 IF. COLORP= 1 THEN LINE - (X1,Y1)> 
610 REM REPETIR EL PROCESO 
620 GOTO 360 


630 NEXT 1 

640 END 

650 DATA ?,1,0,0,0,.2,.5,.3,100,0,-100 

$60 DATA 1,0,0,0,.3,.5,.3,100,0,100 

$70 DATA 1,0,0,0,.3,.5,.3,100,0,0 

680 DATA 1,0,0,0,.2,+5,+3,-100,0,-100 

6790 DATA 1,0,0,0,.3,.5,.3,-100,0,100 

700 DATA 1,0,0,0,.3,.5,.3,-100,0,0 

710 DATA 2,0,0,0,1.5,1,1.5,-37,0,-225 

720 DATA 3,-45, 90, 0, .29, .23, .25,-50,20,-100- 

730 DATA 3,15,95,5,.29+:259+:29,50,50,200 

740 DATÁ -.1,0,0,0,0,1,100,0,0,1,100,100,0,1,0,100,0 

750 DATA 1,0,100,100,1,0,0,100,1,100,0,100,1,100,100, 
100 

760 DATA 1,0,100,100,0,100,100,100,1,100,100,0,0,100, 
0,100 

770 DATA 1,100,0,0,0,0,0,100,1,0,0,0,1,0,100,0,-1 

780 DATA -.2,0,0,0,0,1,50,0,0,1,50,0,50,1,0,0,50 

790 DATA 1,0,0,0,1,25,50,25,1,0,0,50,0,50,0,50 

800 DATA 1,25,50,25,1,50,0,0,-1 : 

810 DATA -.3,0,0,0,100,1,0,10,25,1,300,0,0,0,0,10,25 

820 DATA 1,0,40,0,1,0,83,0,1,33,83,0,1,65,35,0 

830 DATA 0,0,40,0,1,300,0,0,0,150,4,0,1,30,0,-100 

840 DATA 1,0,0,-100,1,0,10,-25,1,300,0,0,0,0,10,-25 

850 DATA 1,0,40,0 

880 DATA 0,0,0,-100,1,0,0,100,1,30,0,100,1,150,4,0,-1 


VARIACIONES PARA M.S.X. 


LINEA 80 SCREEN 2 


Programa 6.5 


Ya hemos visto algunas aplicaciones de las gráficas en tres dimensio- 
nes; a partir de este momento es suficiente con la imaginación del lector 
para llegar a producir las imágenes más sorprendentes y vistosas. 

Evidentemente no hemos sido totalmente exhaustivos ni formales con 
las técnicas de representación que hemos visto hasta ahora, pero son un 
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bagaje suficiente como para poder realizar cualquier programa e investi- 
gar por nuestra cuenta. 


Fig. 6.7 
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ELIMINACION DE SUPERFICIES 
OCULTAS 


AL y como hemos estado mostrando los objetos en la pan- 
talla, éstos consisten en una especie de «esqueleto» de 
alambre representando sus aristas y vértices por medio de 
líneas rectas. Este tipo de representación es la más senci- 
lla que podemos usar, y en nuestro caso casi la única, ya 
que otras técnicas implican el disponer de terminales grá- 
ficos especiales que los ordenadores personales normal- 
mente no tienen. 


Esta forma de representación tiene un inconveniente 
que probablemente el lector ya habrá advertido, y es que hay ocasiones en 
las que es difícil discernir en profundidad la tercera dimensión, de forma 
correcta, por dos razones concretas: la primera, por el simple hecho de es- 
tar representando una figura de tres dimensiones sobre un plano, y la se- 
gunda, porque en ocasiones las caras o superficies que quedarían ocultas 
en la realidad tapadas por las caras que realmente se ven en la pantalla 
del ordenador si se dibujan, haciendo que el dibujo se vea confuso. 


Por esto, llegamos a uno de los problemas típicos de la representación 
de objetos en tres dimensiones: la eliminación de las superficies o caras 
ocultas, esto es, las que quedan tapadas por las caras delanteras que el ob- 
servador realmente ve. 


No hay unos algoritmos o soluciones estándar para resolver este pro- 
blema, sino que en cada caso se aplica el más conveniente. Ya vimos una 
forma de hacerlo en el caso particular de diagramas de funciones y de 
barras, y en el caso de representación de objetos existen una gran canti- 
dad de ellos. 


La mayoría de estos algoritmos demandan el uso de ordenadores muy 
rápidos, dada la gran cantidad de cálculos que tienen que realizar y el hard- 
ware especializado que requieren, por lo que nosotros no podremos usar- 
los en nuestro ordenador personal. 
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Pero hay un caso especial en el cual sí podremos eliminar las superfi- 
cies escondidas de nuestros objetos de una forma simple. Cuando los ob- 
jetos estén formados por caras planas y la forma del cuerpo es «convexa», 
no tiene picos o vértices hacia adentro. 

El funcionamiento de este algoritmo es sencillo. Para cada cara o su- 
perficie del cuerpo determinaremos un vector perpendicular a ella y otro 
vector que una la posición del observador con esta superficie, aplicando 
a estos dos vectores una fórmula matemática que nos dirá si el ángulo que 
forman es agudo u obtuso, ya que si es agudo, la cara es visible para el ob- 
servador, y si es obtuso, no. 


VECTOR 
PERPENDICULAR 


GS 
VECTOR 
PERPENDICULAR 


Esta definición nos lleva a considerar que deberemos representar los 
datos del objeto como algo más que una lista de vértices que debemos unir, 
ya que ahora tenemos que representar el cuerpo como un conjunto de su- 
perficies. 

Esto lo haremos representando cada cara del cuerpo como una lista de 
los vértices que están contenidos en ella, empezando a contar desde cual- 
quier vértice y en el sentido opuesto al de las agujas del reloj vista desde 
fuera del cuerpo. 

El sentido de introducción de los vértices en la lista es importante, ya 
que si lo hiciéramos al revés estaríamos mirando el objeto desde dentro 
del cuerpo y no desde fuera. 

Estos datos de superficies estarán almacenados en una matriz de dos di- 
mensiones SUP(N,M), donde N es el número de caras que tiene el cuerpo 
y M el número máximo de vértices que puede llegar a tener una cara. In- 
dependientemente tendremos una matriz, VERT(V,3), donde estarán alma- 
cenados los vértices del objeto con sus tres coordenadas. 
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Una vez que tenemos los datos organizados de esta manera, vamos re- 
corriendo la matriz donde están almacenadas las caras y calculamos su 
vector perpendicular de la siguiente manera: 

Calculamos los vectores que unen el primer vértice de la cara con el 
segundo y tercer vértices, calculando con estos dos vectores su vector per- 
pendicular con las fórmulas: 


NX = VI(2) * V2(3) - V2(2) * V1(3) 
NY = VI(3) * V2(1) - V2(3) * VI(1) 
NZ = VI(1) * V2(2) - V2(1) * VI) 


Siendo NX,NY,NZ las coordenadas del vector perpendicular y V1(3), 
V2(3) los vectores calculados anteriormente. 


Fig. 7.2 


Una vez calculado el vector normal, calculamos el vector que une la 
posición del observador con el primer vértice de la superficie, LX,LY,LZ, 
y realizamos el siguiente cálculo: 


VE==NX* LX +. NY * LY +NZ'*'LZ 


Si el valor de VE es positivo o 0, entonces la superficie se ve y la pin- 
tamos de la manera ya habitual, y si VE es negativo, entonces es que la su- 
perficie no se ve y no hay que dibujarla. 

Para calcular el vector normal hemos utilizado una operación vecto- 
rial llamada producto vectorial, cuyo resultado es otro vector perpendicu- 
lar al plano formado por los dos vectores iniciales. 

La variable VE la calculamos también con una operación llamada pro- 
ducto escalar, cuyo resultado es un número; positivo, si el ángulo que for- 
man los dos vectores es agudo, y negativo, si el ángulo es obtuso. 
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Los vectores V1, V2 y L los calculamos restando las coordenadas de los 


dos puntos que unen los extremos del vector, resultando así las coordena- 
das de cada uno de los vectores. 


Todo lo que hemos explicado hasta ahora, podemos verlo de forma 


práctica en el siguiente programa: 


388 


10 REM HALLEN AA ELENA RR 


20 REM x*x EX 
30 REM xx PROGRAMA PARA AMSTRAD Ex 
40 REM xx E 
50 REM xx VISTAS Y OCULTAS *r 
60 REM **x ES 
70 REM 46060 de de de dE E DE E E E E E E E E E E 
80 MODE 1 

90 CLS:CLG 


100 REM INCIALIZA LOS VALORES 

110 X0=270:Y0=200 

120 DIM VEC1(3),VEC2(3) 

130 REM LEER EL NUM. SUPERFICIES 

140 READ N 

150 REM LEER EL NUM. VERTICES EN FIGURA 
160 READ M 

170 REM LEER EL NUM. DE VERTICE POR SUP. 
180 READ UV 

190 DIM SUPIN,V> 

200 FOR I=1 TON 

210 FOR J=i TO Y 

220 READ SUPC(I,J) 

230 NEXT J 

240 NEXT 1 

250 DIM VERT(M, 3) 

260 FOR I=1 TOM 

270 FOR J=1 TO 3 

280 READ VERT(1,J> 

290 NEXT J 

300 NEXT 1 

310 D=300:0Xx=300 :0Y=300 

320 REM RECORRE TODAS LAS SUPERFICIES 

330 FOR I=1 TON 

340 REM CALCULA DOS VECTORES INCLUIDOS EN SUP. 
350 FOR J=1 TO 3 

360 VEC1 (J)=VERT(SUPCI,2>,J3)-VERTOSUP(I,1),J) 
370 VEC2(J>=VERT<SUP(1,3),J) VERT(SUPCI,1>,J) 
380 NEXT J 

390 REM CALCULA EL VECTOR NORMAL A LA SUP. 
400 NX=VEC1 (2) *VEC2(3) VEC2(2)*VEC1 (3) 

410 NY=VECI1(3>*VEC2(1) -VEC2(3>x*VEC1 (1) 


420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
$00 
610 
620 
$30 
640 
650 
$60 
670 
680 
690 
700 
710 
720 
730 


NZ=VEC1 (1)*VEC2(2)-VEC2(1)*VEC1 (2) = 
REM CALCULA LINEA ENTRE PUNTO DE VISTA Y SUP. == 
LX=0X-VERT(SUPC1,1>,1) = 
LY=0Y-VERT(SUPC1)1),2) == 
LZ=D-VERT(SUP(1,1>,3) = 
REM OBSERVA SI ES VISIBLE 

VE=NXxLX+NY LY +NZ*LZ 

REM SI NO SE VE NO PINTAR 

IF VEXO THEN GOTO 590 

FOR J=1-TOV 

GOSUB $70 

IF  J=1 THEN MOVE PX,PY 

IF. J>1 THEN DRAW PX,PY 

NEXT J 

J=1 

GOSUB 670 

DRAW PX, PY 


ps) 
2 
< 
m 
Aa 
3 
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o 
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X=VERT(SUP(1,J)>,1) 
Y=VERT(SUP(1,J>,2) 
Z=VERT(SUP(1,J),3) 
PX=Dx* (X-0X)/(D-Z)+0X+X0 
PY=D*(Y-0Y>/(D-Z)>+0Y+YO 
RETURN 


Programa 7.1 


Este programa en principio dibuja un cubo eliminando las superficies 
que no se ven, pero podemos dibujar cualquier figura mientras se cumpla 
la condición de que ésta sea convexa. 

Para preparar las matrices de un objeto realizamos el siguiente proceso: 


1.2 Tabla de vértices, que corresponde con la matriz VERT. 

2.2 Tabla de superficies, en las que la fila indica la superficie del cuer- 
po y la columna el vértice de esa superficie. Esta tabla se corresponde con 
la matriz SUP. 
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EJEMPLO DE TABLAS PARA EL CUBO 


1. Vértices 


2. Superficies 


CARAS VERTICES 


yA 
E 
ls d 


Fig. 7.3 


Estas dos tablas nos dan las matrices VERT y SUP del cubo. 

Con todas las técnicas y programas que hemos visto en este libro po- 
demos representar cualquier cuerpo o escena del espacio tridimensional 
sobre la pantalla de nuestro ordenador de una forma sencilla. 
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Hay otro tipo de técnicas mucho más avanzadas, que permiten el mo- 
delado de las superficies de los objetos y tener en cuenta incluso su textu- 
ra, pero no es posible tratarlas aquí, ya que los ordenadores personales no 
disponen de capacidades gráficas muy avanzadas. 

De todas formas, las técnicas aquí descritas son el principio del diseño 
de objetos tridimensionales en el ordenador, utilizándose unas técnicas pa- 
recidas en CAD. 

Como proyecto final de aplicación de todo lo que hemos aprendido se- 
ría una buena idea diseñar un programa de diseño interactivo de figuras 
tridimensionales con el ordenador, de forma que una vez diseñadas pudié- 
ramos almacenar los datos de la figura en una cinta o un disco para poder 
usarlos más adelante en cualquier programa. 

Este programa nos permitiría, mediante una serie de teclas, el trazar lí- 
neas y unirlas entre sí para diseñar el objeto, viendo el resultado de cada 
operación en la pantalla, con distintos puntos de vista y perspectivas. 
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OPERACIONES CON MATRICES 


Repasaremos las operaciones más usuales que se realizan con matrices. 


JJ 


SUMA Y RESTA 


Para sumar y restar dos matrices, ambas deben tener las mismas di- 
mensiones, siendo la matriz resultado de igual dimensión. 
La forma de realizar estas operaciones es muy sencilla. Cada elemento 
e la matriz resultado será la suma, o resta, de los elementos que ocupen 
su misma posición de las matrices operando. 
Veamos un ejemplo para aclararlo: 
E 2l+ E | e | 14+5 246 [| - [ 6 5 
34 7 8 347 4+8 10» 12 


Este procedimiento también es válido para vectores, que son matrices 
de dimensiones 1 x 2. 


[eM 


11567 81 - 1112341 = 11 5-1 6-2 7-3 84 1| = 1144441 


LL 


MULTIPLICACION POR UNA CONSTANTE 


Para multiplicar una constante por una matriz se multiplica cada ele- 
mento de la matriz por dicha constante. 


Veamos un ejemplo: 
lll 
33 4%3 9 12 


MA 
34 
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MULTIPLICACION DE DOS MATRICES 


En esta operación se necesita que el número de columnas de la prime- 
ra matriz sea igual al de filas de la segunda matriz. 

La matriz resultante tendrá tantas filas como tuviese la primera y tan- 
tas columnas como la segunda. 

La forma de realizar esta operación es que el elemento situado en la 
fila i y en la columna j de la matriz resultado será igual a la suma de mul- 
tiplicar los elementos de la columna j de la segunda matriz. 


Observemos unos ejemplos: 


l 12 | R | 1*54+2*7 1*6+2*8 [ =|| 9 So | 
34 78 || 113*5+4*8 3*6+4*8 || 1147 50 
ar [ZE |< dtrra+29s 1r4+2%6 M= 1113 1611 
34 No puede realizarla por no 
(1240 1506 tener igual número de filas 
78 que columnas. 


Hay que destacar que no es una operación conmutativa, es decir, si im- 
porta el orden de los factores: 


A*B 4B*A 


Observemos dos ejemplos: 


a A 5 S | Ñ | 1+54+2*7  1*6+2*8 | -| 19 za 

34 78117 l[3*5+4*7 3*6+4*8l| “ll47 50 

56 E 12 a | 5*14+6*3 5*2+6*4 | -| 23 :24| 
78 34117 l7*1+8x3 7*2+8*4|| "ll31 46 


Como se observa, los resultados son totalmente diferentes. 


li 211 * E el = 111*3+5*2 1*4+2*61l =1113 1611 
HIRE 
56 2 ll = 5. 26211 =1117 


En este caso las matrices resultado ni siquiera tienen igual dimensión. 
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DETERMINANTES 


Existe un cálculo que asigna un número a una matriz cuadrada, es de- 
cir, que tiene igual número de filas que de columnas. 
Veamos los casos 2x2 y 3xX 3: 


En el caso de dos por dos hay un truco: 
[Ed ll arabe 
Veamos un ejemplo: 
de E 
| a [| = 194-293 = 46 =-2 


En el caso de tres por tres la regla es la siguiente: 


abe 
def 
g hi 


= ate*i + b*f*g + d*h*c — c*e*g - h*f*a — b*d*i 


Veamos un ejemplo: 


= 1*5*9 + 2*6*7 + 4*8*3 — 3*5*7 — 6*8*1 - 4*2*9 = 45 + 84 
-02%= 10348: 72 = 4 


Zo 
456 
18 9 
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APENDICE => 


TABLA DE EQUIVALENCIA DE COMANDOS 
GRAFICOS 


Incluimos una pequeña tabla de equivalencias de comandos gráficos 
para permitir una mayor facilidad en la adaptación de los programas a los 
distintos programas. 

Hay que tener en cuenta las diferentes resoluciones de las pantallas de 
los ordenadores; por ello, se deberán multiplicar los datos por constantes, 
tal como se realiza en alguno de los programas. 

La constante para pasar del Amstrad al IBM es de 0,5; del Amstrad al 
Spectrum será de 0,3; del IBM al Spectrum será de 0,7. En los demás ca- 
sos no es muy importante, pues la imagen será más pequeña, pero no se 
saldrá de la pantalla. 


Trazar una recta que una los puntos X1,Y1 y X2,Y2: 


IBM: LINE (X1,Y1) - (X2,Y2) 

Amstrad: MOVE X1,Y1: DRAW X2,Y2 

Spectrum: PLOT X1,Y1: DRAW X2-X1,Y2-Y1 

Trazar una recta que una el punto X,Y con el último dibujo x1,yl: 
Referido al origen de coordenadas: 

IBM: LINE - (X,Y) 


Amstrad: DRAW X, Y 
Spectrum: DRAW X-X1, Y-Y1 


Referido al último punto dibujado: 


IBM: LINE STEP - (X,Y) 
Amstrad: DRAWR X, Y 
Spectrum: DRAW X,Y 
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Borrar una recta que una X1,Y1 con X2,Y2: 


IBM: LINE (X1,Y1) - (X2,Y2), 0 

Amstrad: MOVE X1,Y1: FEN 0: DRAW X2,Y2: PEN 1 
Spectrum: INK 0: PLOT X1,Y1: DRAW X2,Y2: INK 1 
Dibujar un solo punto X, Y: 


IBM: PSET (X,Y) 
Amstrad: PLOT X,Y 
Spectrum: PLOT X, Y 
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ENCICLOPEDIA PRACTILA DE LA 


INDICE GENERAL 


1 COMO CONSTRUIR JUEGOS DE AVENTURA 
Descripción y ejemplos de las principales familias de juegos de aventura para 
ordenador: simuladores de combate, aventuras espaciales, búsquedas de 
tesoros..., terminando con un programa que permite al lector construir sus 
propios libros de multiaventura. 


2 COMO DIBUJAR Y HACER GRAFICOS CON EL ORDENADOR 
Desde el primer «brochazo» aprenderá a diseñar y colorear tanto figuras 
sencillas como las más sofisticadas creaciones que pueda llegar a imaginar, sin 
necesidad de profundos conocimientos informáticos ni artísticos. 


3 PROGRAMACION ESTRUCTURADA EN EL LENGUAJE 
PASCAL 

Invitación a programar en PASCAL, lenguaje de alto nivel que permite 
programar de forma especialmente bien estructurada, tanto para aquellos que ya 
han probado otros lenguajes como para los que se inician en la Informática. 


4 COMO ELEGIR UNA BASE DE DATOS 
Libro eminentemente práctico con numerosos cuadros y tablas, útil para poder 
conocer las bases de datos y elegir la que más se adecúe a nuestras necesidades. 
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5 ANADA PERIFERICOS A SU ORDENADOR 
Breve descripción de varios periféricos que facilitan la comunicación con el 
ordenador personal, con algunos ejemplos de fácil construcción: ratón, lápiz 
óptico, marco para pantalla táctil... 


6 GRAFICOS ANIMADOS CON EL ORDENADOR 
En este libro las técnicas utilizadas para la animación son el resultado de unas 
pocas ideas básicas muy sencillas de comprender. Descubrirá los trucos y 
secretos de movimientos, choques, rebotes, explosiones, disparos, saltos, etc. 


UECOr INTELIGENTES EN MICROORDENADORES 
Los ordenadores pueden enfrentarse de forma «inteligente» ante puzzles y otros 
tipos de juegos. Esto es posible gracias al nuevo enfoque que ha dado la lA a la 
tradicional teoría de juegos. 


8 PERIFERICOS INTERACTIVOS PARA SU ORDENADOR 
Descripción detallada de la forma de construir, paso a paso y en su propia casa, 
dispositivos electrónicos que aumentarán la potencia y facilidad de uso de su 
ordenador: tableta digitalizadora, convertidores de señales analógicas, 
comunicaciones entre ordenadores. 


DIBUJOS TRIDIMENSIONALES EN EL ORDENADOR 
PERSONAL 
Compruebe que también con su ordenador personal puede llegar a diseñar y 
calcular imágenes en tres dimensiones con técnicas semejantes a las utilizadas 
por los profesionales del dibujo con equipos mucho más sofisticados. 


l PRACTIQUE MATEMATICAS Y ESTADISTICA CON EL 
ORDENADOR 

En este libro se repasan los principales conceptos de las Matemáticas y la 

Estadística, desde un punto de vista eminentemente práctico y para su aplicación 

al ordenador personal. Se basan los diferentes textos en la presentación de 

pequeños programas (que usted podrá introducir en su ordenador personal). 


l CRIPTOGRAFIA: LA OCULTACION DE MENSAJES Y EL 
ORDENADOR 

En este libro se presentan las técnicas de ocultacion de mensajes a través de la 

criptografía desde los primeros tiempos hasta la actualidad, en que el uso de los 

computadores ha proporcionado la herramienta necesaria para llegar al 

desarrollo de esta ciencia. 
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l 2 APL: LENGUAJE PARA PROGRAMADORES DIFERENTES 

APL es un lenguaje muy potente que proporciona gran simplicidad en el 
desarrollo de programas y al mismo tiempo permite programar sin necesidad de 
conocer todos los elementos del lenguaje. Por ello es ideal para quienes reúnan 
imaginación y escasa formación en Informática. 


1 3 PRACTIQUE CIENCIAS NATURALES CON EL ORDENADOR 
Ejemplos sencillos para practicar con el ordenador. Casos curiosos de la 
Naturaleza en forma de programas para su ordenador personal. 


l COMO SIMULAR CIRCUITOS ELECTRONICOS EN EL 
ORDENADOR 

Introducción a los diferentes métodos que se pueden emplear para simular y 

analizar circuitos electrónicos, mediante la utilización de diferentes lenguajes. 


1 5 LOS LENGUAJES DE LA INTELIGENCIA ARTIFICIAL 

Libro en que se describen los lenguajes específicos para la «elaboración del 
saber» y los entornos de programación correspondientes. El conocimiento de 
estos lenguajes, además de interesante en sí mismo, es sumamente útil para 
entender todo lo que la Informática Artificial supondrá para el futuro de la 
Informática. 


l 6 PRACTIQUE FISICA Y QUIMICA CON SU ORDENADOR 
Libro eminentemente práctico para realizar pequeños «experimentos» con su 
ordenador y distraerse de un modo útil. 


1 q EL ORDENADOR Y LA LITERATURA 

En este libro se examinan procesadores de textos, programas de análisis literario 
y una curiosa aplicación desarrollada por el autor: APOLO, un programa que 
compone estructuras poéticas. 


l 8 COMO ELEGIR UNA HOJA ELECTRONICA DE CALCULO 

En este título se estudian las diferentes versiones existentes de esta aplicación 
típica, desde el punto de vista de su utilidad para, en función de las necesidades 
de cada usuario y del ordenador de que dispone, poder elegir aquella que más se 
adecúe a cada caso. 


1 0 ECONOMIA DOMESTICA CON EL ORDENADOR PERSONAL 
Breve introducción a la contabilidad de doble partida y su aplicación al hogar, 
con explicaciones de cómo utilizar el ordenador personal para facilitar los 
cálculos, mediante un programa especialmente diseñado para ello. 
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20 ¿MAQUINAS MAS EXPERTAS QUE LOS HOMBRES? 

Después de situar los «sistemas expertos» en el contexto de la inteligencia 
artificial y describir su construcción, su funcionamiento, su utilidad, etc., se 
analiza.el papel que pueden tener en el futuro (y presente, ya) de la Informática. 


2 l PRACTIQUE HISTORIA Y GEOGRAFIA CON SU ORDENADOR 
Libro interesante para los aficionados a estas ciencias, a quienes presenta una 
nueva visión de cómo utilizar el microordenador en su estudio. 


? ERGONOMIA: COMUNICACION EFICIENTE 
HOMBRE-MAQUINA 

Análisis de la comunicación entre el hombre y la máquina, y estudio de 

diferentes soluciones que tienden a facilitarla lo más posible. 


23 EL ORDENADOR Y LA ASTRONOMIA 
Los cálculos astronómicos y el conocimiento del firmamento en un libro 
apasionante y curioso. 


? VISION ARTIFICIAL. TRATAMIENTO DE IMAGENES POR 
ORDENADOR 

El procesado de imágenes es un campo de reciente y rápido desarrollo con 

importantes aplicaciones en áreas tan diversas como la mejora de imágenes 

biomédicas, robóticas, teledetección y otras aplicaciones industriales y militares. 

Se presentan los principios básicos, los sistemas y las técnicas de procesado más 

usuales. 


BS LA ESTACION TERMINAL PERSONAL 

Las modernas técnicas de comunicación van permitiendo que las grandes 
capacidades de proceso y el acceso a bases de datos de gran tamaño estén cada 
día más al alcance de cada usuario (fuera ya de los Centros de Proceso de 
Datos). 


7 EL ORDENADOR COMO MAQUINA DE ESCRIBIR 
INTELIGENTE 

Descripción de los sistemas de tratamiento de textos existentes, análisis 

comparativos y estudio de posibilidades de cada uno de ellos. Guía práctica para 

la elección del presente paquete que más se adecúe a nuestras necesidades y al 

ordenador personal de que dispongamos. 
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2] EL LENGUAJE C, PROXIMO A LA MAQUINA 

Lenguaje de programación que se está imponiendo en los microordenadores más 
grandes, tanto por su facilidad de aprendizaje y uso, como por su enorme 
potencia y su adecuación a la programación estructurada. Vinculado 
íntimamente al sistema operativo UNIX es uno de los lenguajes de más futuro 
entre los que utilizan los micros personales. 


28 EL ORDENADOR COMO INSTRUMENTO MUSICAL Y DE 
COMPOSICION 

Análisis de cómo se puede utilizar el ordenador para la composición o 
interpretación de música. Libro eminentemente práctico, con numerosos 
ejemplos (que usted podrá practicar en su ordenador casero) y lleno de 
sugerencias para disfrutar haciendo de su ordenador un verdadero instrumento 
musical. 


? LA CREATIVIDAD EN EL ORDENADOR. EXPERIENCIAS EN 
LOGO 

El LOGO es un lenguaje enormemente capacitado para la creación 

principalmente gráfica y en especial para los niños. En este sentido se han 

desarrollado numerosas experiencias. En el libro se analizan estas experiencias y 

las posibilidades del LOGO en este sentido, así como su aplicación a su 

ordenador casero para que usted mismo (o con sus hijos) pueda repetirlas. 


3 SISTEMAS OPERATIVOS: EL SISTEMA NERVIOSO DEL 
ORDENADOR 

Características de diversos sistemas operativos utilizados en los ordenadores 

personales y caseros. Se trata de llegar al conocimiento, ameno, aunque 

riguroso, de la misión del sistema operativo de su ordenador, para que usted 

consiga sacar mayor rendimiento a su equipo. 


NOTA: Ediciones Siglo Cultural, S. A., se reserva el derecho de modificar, sin 
previo aviso, el orden, título o contenido de cualquier volumen de la colección. 
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Uno de los avances más espectaculares de 
la informática en los últimos años ha sido 
el diseño y animación de objetos 
tridimensionales mediante ordenadores. 


Gracias a unas técnicas semejantes a las 
utilizadas en equipos sofisticados de 
diseño gráfico pueden llegar a conseguirse 
imágenes tridimensionales en el 
ordenador. Basta con aplicar una serie de 
conceptos básicos de la geometría para 
convertirlo en una herramienta de 


sorprendentes posibilidades. 


